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aBSTPACT 

Text editors and text formatters/nrocessors are 
describ^*d. The state-of-thp-ar»‘ in text process inq is 
examined. Design and implementation considerations in 
developina an interactive^ intearatedr screen-oriented text 
editing and formattina syst<=*m are discussed. A Berkeley 
PASCAL implementation of such a svstem for a PDP-11 mini- 
computer under the IJfilX timesharing svstem is presented. 
Intended system users are non-comouter scientists/ e.g. 
secretaries/ business executives/ engineers/ students/ etc. 
Proaramminq experience is not required to utilize the 
system. 
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T . INTRODUCTION 



A. THESIS OBJECTIVE 

f^ost existing text editors and formatters currently 
available are deficient for various reasons. Soecifically# 
most text editors are 1 i ne-o r i en t ed » many formatters are 
non-interactive» and ^ew editors and formatters are 
intedrated into a single system. For these reasons# the 
design of a "better” text orocessino system was undertaken 
to demonstrate the feasibility and utility of such a 
comorehens i ve system. Toward this end# a survev of the 
current state-of-the-art in text orocessinq was carried 
out. Based on this research, the desiqn of a "better" text 
processing system is ores^nted. 

This system is an interactive# intearated# screen- 
oriented# context-oriented text processing system 
consisting of both a text editor and formatter. It is 
designed to be easy-t o- 1 ea rn # easy-to-use# e a s y - t o-en h a nc e # 
and easy-t o-ma i nt a i n . Intended system users art* non- 
computer scientists# e.g. secretaries# business executives# 
engineers# students# etc.# who may or may not have 
programming experience. This svstem has been designed to 
aid in the preparation of documents and/or programs. The 
system has been implemented on existing Naval Postgraduate 
School (NPS) hardware using available software. 
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Four features characterize this system. Firsts it is 
fully integrated in that the text editor and formatter are 
not separate entities but c omo 1 em en t a r v oarts of a single 
program. Secondly^ this system is interactive and provides 
the user with immediate feedback. Thirds it is screen or 
disp1ay*“oriented, A visual display^ on a cathode ray tube 
{ C P T ) -enu i pped terminal# serves to provide both the editing 
and formatting feedback. The screen-orientation eliminates 
the need for many hardcopy printouts as the screen 
depiction is exactly how the final# finished product will 
appear. Finally# manipulation of the text through the 
screen window for perusal and modification is context- 
o r i ent ed , 

B, TEXT editor definition 

Although the term ’’text editor" is widely used# it is 
necessary to clearly define its meaning here. In general# 
an editor is an interactive computer program that allows 
the user to create and modify a text file. This file is 
simply a seguence of character data. An editor is used to 
write documents such as term oaoers# theses# letters# etc,# 
and programs. The text editor performs the following 
tasks: 

- provides access to the text stream from both file 
storage and terminal input# 

- adds text to the text file# 

- distinguishes between words and spaces to split 
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and build lines of fext» and 
- alters the text at a niven location cased on 
user specifications. 



Text editors are widely used because corrections and 
modifications to the text file are easily mad#> as opposed 
to re-enterinq a complete updated version of the text. 

Most editors provide functions to insert/ delete/ copy/ 
move/ scan and substitute text within the text file. A 
text editor also provides facilities to manipulate the text 
file so that it may be created/ destroyed/ saved or 
updated. Oisolayina and/or printing out tne text is easily 
accomplished. Tn addition/ the user is able to locate a 
particular location/ anywhere in the file/ in several 
different ways. Th<=» user can scan through the displayed 
text by moving the cursor/ by requesting the display of 
specified lines or by initiating a context search in which 
the editor attempts to match a specified sequence or 
Pattern of characters. 

There are two distinct types of text editors that 
impact uDon this project. The first category is line- 
oriented and the second is context-oriented. These 
categories are described in the following paragraphs. 

1 , Line-Oriented Editors 

L i ne -o r i en t ed editors are those in which the text is 
logically divided into lines. A line is a character 
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soQuence t-hat is delimifed within the file by a soecial 



line marker at its beainninq or end. Lines should not be 
confused with sentences. This type of editor is 
distinguished by the assignment of either a p<»rmanent or a 
relative line number to each and every line of text. These 
line numbers serve as user reference Points. Editor 
commands include line numbers to indicate where the desired 
action is to occur. The "^ajor advantage of line-oriented 
editors is their ability to be used on both CPT and 
hardcopy terminals and their tolerance of a slow 
communication rate. In addition/ many secretaries and 
typists feel that a physical line is the most logical and 
reasonable entity to manioulate while editing. Two other 
factors that sell 1 i ne -o r i en t ed editors are the disruption 
of touch-typing habits on key-defined function editors and 
the completely context-free operation of c h a r ac t e r-o r i en t ed 
ed i tors. 

2 . Cont ex t -Or i ent ed Editors 



Instead the text file is referenced relative to the 
existing text by specifying a particular marker or sequence 
of characters in a context search/ or bv the of 

absolute x-y addressing if available on the CPT terminal. 
These files are usually divided into pages which may or may 



Context-oriented editors are so termed because ther 



are no associated line numbers for 




Purposes , 



not be further broken down into lines 



Context editors are 



not generally imole'^ented on hardcooy terminals or CRT 
terminals with a low baud rate because too much time 
elaoses while the oaqe of text is orinted out or displayed. 
C. TFXT FORM/iTTEP DEFINITION 

A text formatter or processor is a computer program 
which allows the user to manipulate the text file to 
produce a specified output format. Formatters are used in 
document oreoaration. The processor keeps track of the 
Page format as defined by the page marginsr number of lines 
Per page# and line spacina spec i f i c a t i on s which are all 
subject to chance. It provides page numberincf 
indentation, headinos and footers, and an underlining 
capability. A typical t*»xt formatter, (S, 7, 101, 

performs the following tasks: 

- accesses the text file from storaae/ 

- distinguishes between format commands and text, 

- provides reasonable and general default format 
soeci ficat ions, 

- redefines the format specifications as directed 
by the user, 

- splits and concatenates lines of the original 
text file to produce lines conforming to the 
output s pec i f i c a t i on s f 

- fills text by outing as many words as possible 
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within a line 



outputs blank; lines or skips lines 



- provides for oaoe ejects or skips to the too of 
a new page $ 

- outputs irregular# non-filled lines of text# 
e.q* titles# whpn directed by the user# and 

- allows the line to be centered# r i gh t - j us t i f i ed 
(aligned along the right n^argin)# or underlined. 

Text formatters allow drastic format changes to be 
accomolished by the use»“ ^o improve the document's final 
aopearance and thus its readability. 

Many text processors adjust the lines of text whic»i 
means the line is both filled and right- justified by 
inserting extra blanks within the line. Soohisti rated 
formatters# in addition to the oreviously mentioned 
features# may provide soelling checks# hyphenation# 
footnote production and generation of a table of contents 
or indices. Text processors mav or may not be interactive. 
Non-interactive formatters require the user to visualize 
the effect of the format command and later verify the 
desired result by printing out a hardcooy listing of the 
document. Interactive formatters do not reauire this 
mental transformation and verification process by the user 
because the command result is immediately apparent. 

Before proceeding on to the survey of text processing# 
it is appropriate to define a text processing capability. 
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Systems Dossessina a text orocessinq caoabnity are able to 



oerform the previous 


1 y m 


en t i oned 


tasks of 


both 


and formatter. 


For 


t he 


purposes 


of this 


t h e s i 


process i no and 


text 


p roc 


essinq are synonymous. 



ed i tor 
word 
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TEy(J PROCESSING SUPVEY 



The inifial steo in this th^^sis was to survey the 
current state-of-thA-art in text orocessinq. In this 
survey# the commercial marlcetolace was reviewed. In 
addition# ten exist i no NPS text editors and processors were 
observed. The survAy goal was to determine the most 
desirable features of a text processing system, 

A. covimerctal text processing 

Although text orocessinq has been around since the 
mid-sixties at academic and research institutions# it was 
not until the mid-seventies that it became commercially 
attractive. The technological advances of the early and 
mid-seventies brought about a rapid decrease in both 
comouter size and price. These factors made them very 
attractive to perform a variety of tasks# particularly text 
processing# in an automated office. FORTUNE'S "Trends in 
Comoutinq--ADDli cations for the 60*s" (2hJ, describes 

automation's imoact in this manner# "In the white collar 
factory, the office# the computer and its microorocessor- 
based offspring are inciting a revolution of epic 
prooortions with word and text processing,..," Comouter 
vendors of both hardware and software are scrambling to 
establish themselves in the emerging office automation 
market. The following examples of this scramble were cited 



in the FORTUNE article 1201. Data General has added text 
processina to the commercial caoabilities of its Eclipse 
Computers. ^Nanq has oiven all of its VS computers a text 
processina capability throuqh "mailwocd”. Germany's 
Nixdorf disclosed a second Generation of distributed data 
systems that- oerform text orocessinq/ batch and interactive 
commun i c at i ons f data entry/ and local file and data base 
processina. Dunn/ in COMPUTER DECISIONS [41/ provides tnis 
estimate of the siz« of the text orocessinq market/ 
"Revenues from word orocessinq have jumoed from $*^36 
million in 1077 to T1.5 billion in 1978 when 120/000 units 
were acquired/ and are oroiected to reach bOO/000 units/ 
grossinq T6 billion/ in 1983." 

Two fac^'ors causinq management's acouisition of text 
processina faciliti^^s are the secretarial shortage and the 
low productivity of white collar and cl'^rical employees. 
Dunn/ in "The Office of the Future Part II" [51/ details 
the secretarial problem in this way/ "...last year [19/8] 
60/000 secretarial jobs went unfilled/ thouah salaries are 
rising more than lOX a year. By the mid-19R0's the 
secretarial shortfall could reach the quarter of a million 
mark." vVilds/ in "The Smart Way to Pick Word Processors" 
[241/ provides an example of the oroductivity impact of 
text orocess- ing. A typical productivity increase 
occurred at J. C. Penny Co. where the installation of text 
processing equipment cut turnaround time on typed documents 
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from "as long as a weeK*' to an average of "next aay". 

There are two orincioal oroducts sold bv text- 
processing vendors. Stand-alone text processors with price 
tags of %h,000 to 512^000 each are the most popular. An 
alternativer the Purchase of a word-processing Package for 
CPU'Sf makes text processing another data processing 
application. These Packages cover a considerable price 
range up to S75r000. Independent suppliers^ rather than 
computer manu f ac t u r e r s f provide most of this software. A 
representative samoling ot text processing software 
packaaeSf derived from th» January IPSO issue of CO'^PUTER 
OECTSIOMS flPlf Packages would include the following: 

- W0RD-0tl£--used with "^60/^0 or above^ 370/ 

13S or abover ^300 series^ National and 
Amdahl systems; sold by Bowne Information 
Systems for SbS^OOO; 

- A Z - T E X T --US ed with Data General 's Advanced 
Doerating System and Ecliose System; sold by 
Data General Corporation for 5^^000; 

- Datapoint Word Process ina--used with Datapoint 

3300, 1800 and 1500 series processors; sold by 

Datapoint Corporation tor 3750; 

- Word-ll--used with DEC RSTS/E timesharing 
executive; sold by Data Processing Design, Inc. 
for 37,500. 
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There are many text orocessinq systems available for 
microcomouters. The ^oHowinq oackaqes are a few of those 
availaole for I^JTFL-based 8080 and Z-^0 microcomputers. 
Small Business Apo 1 i c a t i ons # Inc. markers Magic k"yand at 
5400. The Software Store has MWP (^^ini ^ord Processing 
System) for $195. The TRS-80 Microprocessor can use either 
The Electric Pencil# for $100 or $150# or Scripset# for 569 
or 599. These software packages can be economically 
integrated into exist i no systems without the purchase of 
special hardware. 

As previously mentioned# stand-alone or deaicated 
systems are the most nooular. The vendors of these systems 
market a complete hardware/software Package consisting of a 
workstation and the support software. These systems 
usually have specialized terminals. "Clustered# or shared 
resource# word processing systems (which rely on minis and 
micros) are the fastest growing word orocessinq segment" 
according to FQ9TUME (?01. CPT# Lanier# Jacquard# Wang 

and Xerox are only a few of the vendors marketing these 
systems. 

B, commerctal trends 

Several interesting d<>velopments are occuring in text 
processing. First# CRT-disolays are inheriting the market 
from nondisplay systems. Tpxt processors that use hardcopy 
terminals exclusively are neinq recognized as less 
productive and less attractive. Also# significant price 



cjecre-=^sps makp disolav systems more attractive. Second 



there is a trend toward resource sharina and joint text 
processinn and data process inq. In this area^ AXXA 
Corporation tackles executive and secretarial productivity 
with its new dual workstation# supporting text processing, 
electronic mail, calculation, data processing and file 
access. Xerox Office Products announced the 860 Advanced 
workstation that performs text processing, system book- 
keeping and data processing. Finally, the new systems are 
multifunctional. Text processing is inteorated with 
telecommunications, facsimile transmission, numeric 
processing, electronic mailing, data entry and access, and 
other functions such as search/sort, filing, statistics 
generation, etc, tPO, ?51 

C. EXISTING NPS TEXT EDITOPS AND F^H^^ATTERS 

To evaluate the current s t a t e-o f - t h e -a r t on camous, a 
review of ten editors, formatters or word processing 
systems was undertaken. These systems were either used by 
the author or observed in use. User’s Manuals and other 
system documentation were revi<»wed. The following systems 
were examined: 

(1) CRT Text Editor NED, 1P77, used on the 
POP-1 1/70, rai ; 

(2) AMOS/2 Editor, 1P72, used on the AGT-10, 



C5) EDI Editor, 1 977, used on the PDP-11/5H, [71,* 

(^) Interactive Display Editor Vi, 1979, used on 
thp POP-1 1/50, [13] ; 

(5) NROFF text processor, 197U, used on the 
PDP-1 1/50, tl6J ; 

(6) TED editor, 1978, used on the 8080 and Z-80, 

[ 21 ] ; 

(7) PRO formatter, 1978, used on the 8080 and 

Z-80, [?n; 

(8) UCSO PASCAL Screen-Oriented Editor, 1978, 

used on the BO^’O and Z-80, [22]? 

(9) UNIX Text Editor Ed, 1^75, used on the 

PDP-1 1 /50, [25] ; and 

(10) WPS-8 Word Process i no System, 1978, used on 
the PDP-8, [2h ] . 

These systems cov<»red the entire spectrum of text 
editors and formatters from the simole, relatively 
unsophisticated, aeneral-ourpose models to complex, 
sophisticated, specialised systems. They also provided a 
fairly represent at i ve historical development of text 
processina systems, from the non- interactive, line-oriented 
NROFF formatter (197^1) to the interactive, disoay-oriented, 
context editor Vi (1980), and the integrated, interactive, 
sc reen -o r i en t ed context WPS-8 Word Processing System 
( 1978) . 
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Of t-hp ten systems examinedr the WPS-8 was the only 
stand-alone text orocessinq system. The other systems were 
run on oeneral-ouroose comouter systems. Terminal 
C h a r ac t e r i s t i c s varied considerably among the reviewed 
systems. EO, NEDr MROFF and WPS-8 utilize soecial qraphics 
terminals. NFD and WPS-8 require soecial function keys. 
UNIX's Fd and Vi, PPO, TED, and UCSO's editor, can be used 
on a wide range of terminals, both intelligent and dumo^ 
disolay or hardcooy. A^OS/P uses a teletyoe. 

Of fhe editors surveyed, AMOS/^, EOT, UNIX's Ed, and 
TED were line-oriented. The c on t e x t -o r i en t ed editors were 
NED, Vi, UCSD's editor and the wPS-8. NED and UCSD's 
editor performed some formatting functions such as margin 
setting, filling, centering, right justification, etc. Vi 
and wPS-8 had the most extensive command sets. The command 
vocabulary was, un f o r t un a t e 1 y r so extensive that the user 
had to frequently refer to system documentation for helo. 
Some of the commands were very similar looking but 
Performed widely different functions. The special function 
keys on the NED and WPS-8 terminals facilitated the editing 
process. Editor commands were generally one character 
followed by line numbers where appropriate. Many commands 
were mnemonically indicative of the action performed. 

Cursor positioning was used on the context-oriented 
editors. NED allowed the editing of more than one file at 
the same time, as did UNIX's Ed. An additional feature 
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provided by NED was the Capability to aivide the screen up 
into as many as ten comoletely seoarate and independent 
edit areas. 

Of the formatters surveyed^ PRO and NPOFF were 
non-interactive while ^^PS-0 was interactive. PPO is used 
as a DO s t - p r oc e s s o r for files edited with TED^ and provides 
many formatting foat-yres includina footnoting. NROFE and 
WPS-8 provide almost any formatting f<=»ature ever thought 
of. Commands were oenerallv two letters in all three 
systems and frenuently had numeric arguments. NROFF and 
TED are sometimes time-consuming to use because of their 
non- i n t e r ac t i ve nature and the user's failure to correctly 
visualize command results. 

D. CONCLUSIONS 

This chaoter has orovided a brief survev of the 
St at e-of -t he-ar t in text processing. The evolution of text 
processina ov*»r the last ♦’en or so years has been traced. 
Non-interactive^ hardcooy systems have been replaced with 
interact iver softcoDv or CRT-based systems. Line- 
orientation has been replaced by context-orientation. In 
the Past, editors and formatters were separate systems but 
now they are fully integrated into a comprehensive text 
processina system. Special hardware, terminals and micro- 
and mini -based stand-alone sytemSf have been developed and 
are quite common. Not only go the text processina systems 
of today oerform editina and formatting duties but they are 



also canablp of 
such as system 
f unc t i ona 1 text 
today’s automat 



oerforminq a wide ranqe of other funct 
book^eepi nq and data processinq. Multi- 
processinq has become an inteqral part 
ed office. 
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Ill- DESIGN METHODOLOGY 



A. PRODUCT DEFINITION 

Before any desion could be c on t emo 1 a t ed ^ the final 
product had to be envisioned and defined from a user's 
Doint of view. The product of this effort is an 
integrated^ interactive^ sc reen-o r i ent ed text processing 
system. SCOPE, Sc reen -0 r i en t ed Processor and Editor, 
performs the previously defined functions of both a text 
editor and formatter. It is implemented on the existing 
PDP-11 mainframe, using existing terminals and software. 
SCOPE is gene r a 1 -pu roose and is not intended to perform 
graphics or uncommon formatting functions, e.g. the 
generation of two columns of text necessary for some 
publications. Thesis preparation was a consideration in 
the selection of desired formatting features. 

From the ten MPS systems reviewed, the following were 
chosen as models for this thesis: 

(1) the Vi Interactive Display Editor, 

(2) the UCSO PASCAL Screen-Oriented Editor, 

(3) the text editor TED, and 

(^) the text processor PRO. 

In addition, a UCSD PASCAL Formatter, written by the 
author, served as a model. 
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The qoalSf the desian and the develoDment process of 
SCOPE will de discussed in the remainder of this chanter, 

B. DESIGN GOALS 

Further research was undertaken to determine the 
elements of a good desian. The followina paragraphs detail 
design aoalSf set for other design and implementation 
projects# that were applicable to this system. These 
references# "Overview of the Functional Features and 
Software Desian for a Display iNord Processor" [1^1; 
Kerniqhan and Plauaher's chapters on editina and ■formatting 
(151# "Text Handlina in an Automated Office" [17); and 
"Development of an Experimental Display bond Processor for 
Office Aonlications" flS); served as the basic source 
doc umen t s . 

In SOFTWARE TOOLS (151# Kerniahan and Plauqher discuss 
editing and formattina desiqn factors. The following 
points were made in their discussion. Human enqi peering 
(the analysis of man's habits and work patterns in the 
attempt to optimise the man-machine interface) consiaer- 
ations are identified as the primary desian factor. For 
this reason# an interactive system has streamlined and 
terse communications with the user and is easy-to-use. 
Experienced users were found to prefer concise commands so 
brevity and mnemonic value are counterbalanced. They 
recommend that most formatting occur automatically. Error 
recovery is identified as the second major design factor 
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and briefly described. The system cannot quit when a user 
enters an erroneous command but must recover qracefully. 
Valuable information must be protected from loss due to 
user error. f^eliaoility is identified as another important 
factor. Also# the desiqn must be well-oraanized because of 
the size of the pronram. A flexible desiqn is desired to 
allow for enhancements of more advanced features. 

"Development of an Experimental Display Jiord Processor 
for Office Apo 1 i c a t i on s " [161 furnished the followinq 

design information. This software desiqn was heavily 
influenced by considerations of response# ease-of*use and 
extensibility. A key objective in the desiqn was to 
emulate the typewriter in order that the user could 
instantly and accurately be shown the status of the 
document being edited or formatted. i n i m i z a t i on of 
operator fatigue was considered to be an important factor. 
Displays were used to simplify the user's job and the 'soft 
copy' eliminated the sluqaish response of a hardcopy 
terminal. Unlike 'blind' systems where the operator must 
keep a mental imaoe of the desired fininished output and 
maintain knowledge of the location of material in order to 
edit or format# this display-based system performed these 
activities for the operator. The results of keyooard 
editing and formatting actions were instantaneously 
displayed. The keyboard and the soft copy provided by the 
display served as the primary interface for user/system 
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dialoque. User error was reduced by differentiating 
between text and command inout* Althouoh t^^e command 
reoertoire was extensive# users were found to rely upon 
only a few basic commands. 

In addition to the factors mentioned in the previous 
paragraph# ’’Overview of the Functional Features ana 
Software Desian for a Display i^ord Processor” (1^1] 
discussed further efforts made to aid the user. Informa- 
tion on the CRT requiring ooerator interaction was 
disolayed using menus. A message area# ’’status and alarm 
area”# was used to display messages to the user which 
indicated the current command# system status and error 
conditions. The HELP disolay provided information 
pertaining to the user's current state# e.q. current valid 
commands . 

”Text Handling in an Au^’ornated Office” 117) exoressed 
the design views found in the following paragraohs. The 
design aims in this project were to achieve a good human 
interface and an efficient implementation, A good human 
interface meant that the system was easy-to-use ana 
easy-t o- 1 earn and could be basically described as 'frienaly 
and forgiving'. An efficient implementation meant that the 
provided services were aaaptable (easily modified or 
expanded)# many concurrent users could be supoorted and 
machine resources were utilized efficiently. Emphasis was 
placed upon streamlining the human interface# making 
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services ad^pfabl^* to chanqina requirements and utilizing 
comouter resources efficiently. 

Features that enhanced the Human interface were a 
unified command structure^ a message area and a uniform 
mechanism to store and display text. A good human 
interface was achieved when actions common to different 
services were initiated by the same commands. Full-word 
wraparound and rudimentary text formatting, such as default 
margin settinas, double spacing, etc., to make the text 
more readaole, were provided during text insertion to 
improve the human interface. Full-word wraparound 
automatically forces a word which would extend into the 
right margin to be moved to the next line down. The 
message area was set asiae for command entry, i.e. to 
display and edit commands during their composition; error 
messages; machine status; etc. It was protected, i.e. no 
user services could be invoked in it. The cursor served as 
the Pointer to the text being edited. Commands for moving 
the cursor and positioning the text window, i.e. the block 
of text currently displayed in the screen, were uniform 
across all services. 

Efficient utilization of computer resources was 
obtained by storing as little information about the screen 
as possible, avoiding duplication of code and minimizing 
the communication oetween screen and the computer. This 
system avoided duplication of executable code by unifying 
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the various constructs/ operations and data structures 
common to a number of services and implemented them as a 
common Pool of suhroufines. In addition/ each service had 
its own special purpose routines. This design strategy 
made code more compact/ but also--even more importantly 
made the the system more adaptable. Existing services 
could be modified by adding new soecial puroose routines or 
by enhancina the common routines. The same commands in 
each service performed a common action making the user’s 
job much easier, 

based on these obse r vat i ons / the following desian goals 
for the SCOPE system were set to achieve a friendly/ 
forgiving and easy-to-use system; 

1. to utilize the display or screen as the 
editing and formattinq vehicle/ 

3. to provide extensive error-checking and 
graceful error recovery, 

3. to develop a uniform command structure of 
brief mnemonic commands/ 

to incorporate a display message area for 
system-user communications/ 

5. to assist the user through the presentation of 
menus and a current command status display/ 
b. to develop a reliable program/ 
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7. to facilitate prooram adao t ab i 1 i t y and 
nnaintainabi 1 ity» 

8. to utilize co^iputer resources efficiently^ 
and in addition^ 

9. to provide Hardware independence in the use of 
printers and terminals^ i.e. to specifically 
eliminate the requirement for specialized 
hardware . 

The overall SCOPE design is simple and straightforward. 
Program reliability and maintainability were much more 
important than the considerations of speed and storage. 

This does not meaof however^ that processor and storage 
resources were inefficiently utilized. Tradeoff decisions 
durina the desian process were made in line with the 
following list of priorities# in order of importance# 
ease-of-use# program reliability# proaram maintainability 
and finally efficient utilization of machine resources. 

C. THE DESIGN PROCESS 

The design process proceeded in phases. It was 
iterative and incremental in nature. The initial phase 
dealt with the consideration of terminal characteristics. 
Phase Two defined the overall system structure and 
capabilities. Subsequent phases dealt with the definition 
of new features and sometimes with the redefinition and 
enhancement of existing ones. 
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Terminal Characteristics 



The first step in realizing the desired product 
the consideration and selection of a minimum set of 
terminal characteristics necessary for a 
sc reen -o r i en t a t i on . Only CR T -eau i oped terminals were 
considered for this reason. Specifically/ two dumb 
terminals/ the AD^'’-3A [1] and the D'^-1520 (83/ were studied 

because they were used in the implementation. In addition, 
the DM -2500 (Rl was considered to add a greater degree of 
generalization and hardware independence. Ideally/ the 
terminal used would have an extensive keyboard with many 
special function keys/ e.g. delete/ insert/ etc-/ and a CRT 
screen large enough to display a full oage of outnut text 
at one time. This system/ however/ is not intended to run 
on the ideal terminal but on a large number of widely 
available dumb and intelligent terminals. 

To achieve the previously mentioned design ooals of 
generality and hardware independence/ the terminal 
c ha rac t e r i s t i c s chosen for inclusion in the minimum 
reguired set are present on most dumb terminals. The 
following terminal characteristics are necessarv for 
successful implementation of this project: 

a. standard ASCII character set (upper and lower 
case/ numerals and punctuation marks)/ 
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D« nondestructive cursor movement- in four 
directions ( uo , aown, right and left)r 

c. CPI screen dimensions that allow the disolav 
of \ 2 or more lin»s with 60 or more characters 
per 1 i n e ^ 

d. communication rate of at least IdOO baud, 

e. hardware scrolling feature (cursor movement 
past the bottom line on the screen causes all 
all the above lines to move up one line)^ 

f. absolute x-y addressing, 

g. clear screen, 

h. carriage return, 

i. bell fused to alert user when an error is 
encountered), and 

■i , control code oeneration, 

Uoon entry into the system, the user will indicate 
which terminal tyre is being used- The system will then 
make the necessary ASCII code assignments to variables 
holding the codes for such display functions as clearing 
the screen or movina the cursor non -de s t rue t i v e 1 y to tne 
right- In addition, the user will indicate the printer 
type to be used for the generation of hardcopy output- 
2 - SCOPE Features 

The next ohase in the design process was spent 
defining tne features or caoabilities to be included in 
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SCOPE. The text orocessinq systems reviewed in section 
II. D. were the sources for the chosen features. Each major 
feature is listed and briefly described in this section. 

For purooses of clarity^ the features to be included in the 
SCOPE design are Grouped into six categories. 

a . File-Handling 

SCOPE needed to be able to create new files# 
sav<» files and access previously saved files. A hardcooy 
printout of the processed document should oe readily 
available and may or may not be produced directly on tne 
printer. A listing file may be created and sent directly 
to the printer or saved in storage for multiple hardcopy 
production at the user’s discretion. SCOPE generated files 
are incomoatible with other UNIX editors and formatters due 
to embedded format commands. For this reason# SCOPE should 
allow the user to out files together in various ways within 
the buffer and to write out partial buffer contents as a 
file. Any SCOPE file may be added at any location within 
the buffer as long as there is enough soace in the buffer. 
In addition# any segment of text in the buffer may be 
copied out and saved as another separate SCOPE file. These 
two features should facilitate the "cut and paste" aspects 
of document r eo rgan i z a t i on . 

b. Screen-Orientation 

SCOPE should be a screen-oriented or 
display-based system. The screen will provide the user 
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with a 'soft copy' of the finished document. The visual 
disolay will serve as the editing and formatting vehicle. 
The user should be made immediately aware of th^ results of 
any editing or formatting commands. No guesswork should be 
involved. A sc reen-or i ent at i on should take advantage of 
the visual nature of the editina and formatting process. 

Cursor positioning will determine the text 
displayed to the user in the text window on the screen and 
will pinpoint the location of most command actions. A 
reasonably fast system response is reguired to maintain the 
correspondence between the user's commands and the cursor 
movement. A slow response# typical of a busy timesharing 
system# disrupts this cor respondence so that user entries 
appear to be ignored by the system thereoy confusing the 
user and causing him to introduce errors by auplicating 
entries and receive unwanted results. 

Cursor movement should occur in one of four 
directions at a time# right and down for forward movement# 
and left and up for backward movement through the text. 
Movement of the cursor should proceed a character at a time 
or a line at a time. '/Wraparound from the end of a line to 
the beginning of the next when going forward# or from the 
beginning of a line to the end of the previous one when 
going backward should be provided. A carriage return 
should place the user at the first character of the next 
line down. Other commands should be available to speed 
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movement through the text by scrollinq through the text a 
screenful of lines at a time or a oage of lines at a time# 
where a oage reflects the hardcopy paae length. Context 
should be maintained during raoid movement through the file 
by overlapping or repeating a few lines from the last 
screen display of text when scrolling a screen at a time. 

No overlan need occur when paging through the text. In 
addition, the user should be able to lump to tre beginning 
or end of the file upon command. 

c. System- User Communications 

SCOPE should be an interactive text processing 
system. The screen should be the primary interface for 
system/user dialogue. Being interactive# system response 
time will be a major determining factor in SCOPE'S success. 

The user will reouire instantaneous echoing of his input 
for verification purposes and should be able to make 
correc” tions by <»rasing input characters. System-user 
communications are not minimized in this design because 
many SCOPE ooerators will be casual users. Such users will 
not want to spend a lot of time relearning the system. 

A message area will be a specially defined'-area 
on the screen for the inout and display of user commands# 
the display of error messages# the display of current 
command status# i.e. which commands are currently available 
to the user# and the display of prompts and menus. This 
message area should be protected from other system features 
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except in the case of the terminal's hardware scrolling. 

The user should be coached during a SCOPE session through 
the use of menus describing the available ootions and 
prompts describing the command action and how it is 
ini t i a t ed . 

There should be a uniform command structure of 
short mnemonic commands. The same command should cause the 
same action across the provided services, e.g. a 'g' will 
allow the user to exit or guit any service. ^ relatively 
small set of powerful commands should be available- Text 
input and command input should be differentiated for the 
user. It is important to keeo the user informed of 
processing actions not apparent to him, e.g. writing of a 
file, by signalina their successful or unsuccessful 
completion. System messages to the user should be 
conversational in tone and unde r s t andab 1 e . A cryptic 
message only serves to confuse and alienate the user and to 
i n t roduc e error. 

d. Error Handling and Recovery 

SCOPE should attempt to prevent user error as 
much as possible by providing extensive error-checking. As 
mentioned previously, slow response time will increase user 
input error as typographic errors become more freouent. 

User command and text input should be carefully screened to 
recognize invalid commands or nontext characters as soon as 
possible. However, since all user errors cannot be 
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anticiDatedf the desinn of the syst'^m should attempt to 
minimize the imoact of those that do occur, Tn generals 
error handling should consist of providing the user with a 
descriptive error message^ forcinn active user recognition 
of the error condition and finally re*orompting to provide 
information about valid command options available. Grace- 
fulerror recovery should oe attempted and accomplished 
exc^=*pt in the case of a catastrophic error occuring to the 
base system. The user should be protected from the loss of 
text by requiring positive confirmation of its deletion or 
the provision of backup files, 
e , Editing 

SCOPE should provide editing features to 
facilitate the composition of documents and programs. 

These editing features may be invoked during initial 
creation or after creation and storage. During the editing 
session^ the user should be able to move the cursor or 
issue scrolling commands for forward and backward movement 
through the text to pinpoint th#» location of the edit 
action. A standard/ default set of formatting 
specifications should be in effect unless the user sets 
other specifications. The following list of specific 
features should be available through the SCOPE editor. 

- Insert --shoul d allow the user to add text to 
the buffer before the character at the cursor. Input text 
should be screened for invalid entries and displayed on 



36 



< ' 



1 






,r; 



"I 



ir^ 



the screen. The user should be abe to erase inout 
characters. If the text is being filled^ automatic 
full-word wraoaround should be orovided at the end of the 
line. User acceptance or rejection should determine 
whether the added text remains in the buffer. Th^» user 
should be orotected f rom buffer overflow, 

• De 1 e t e --S h ou 1 d allow the user to remove 
text from the buffer. A character or an entire line mav be 
deleted at a fime. Cursor movement should indicate where 
the deletion occurs. Up or down movement should delete a 
line# while right or left movement deletes a character. 

The direction of deletion, forward or baclfward, shotjld be 
consistent during the deletion orocess. C on t r a d i c t o r v 
cursor movement should cause the last deletea line or 
character to be restored to the screen and in effect negate 
the deletion process. Actual removal/deletion of the text 
should only occur within the buffer upon positive user 
confirmation. Until this confirmation, the text will only 
"appear” to oe deleted on the screen. 

- Locat e--shou 1 d allow the user to pinpoint 
the first location of a specified pattern or string of 
characters if it occurs within the text. This alobal 
search should begin at the current cursor position and 
proceed in a forward direction. Only a successful search 
will reset the cursor Position to the beginning of the 
"located" pattern. In the event of an unsuccessful search, 
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the cursor and the text window remain unchanged 



• f^eo 1 ac e - -s h ou 1 d allow the user to substitute 
one strinq of characters for another reoardless of their 
respective lengths at every occurrence of the target within 
the remainder of the text. This global substitution should 
begin at the current cursor position and oroceed in a 
forward direction only. The user should be protected from 
buffer overflow. 

- Exchange--shoul d allow the user to 
substitute one strinq of characters for another of the same 
length at the current cursor position. As the cursor moves 
forward the user inout character will overwrite the 
existing buffer contents. 

- Copy -•shou 1 d allow the user to duplicate 
parts of text within the buffer. The user should be able 
to delimit the material to be duplicated and position the 
cursor at its new location. Copied text should be placed 
in front of the character at the cursor. The user is 
protected from buffer overflow. 

- Move*’*should allow the user to reposition a 
segment of text within the buffer. The user should be able 
to delimit the text to be moved and position the cursor at 
its new location. The delimited text should be placed in 
front of the character at the cursor. 

- Extract--should allow the user to write out 
a portion of the text to another SCOPE file. The user will 
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delimit the body of text to be cooied to another file and 
then initiate the process. The original text should remain 
unaffected in the buffer, 

- A(jd--should allow the user to add another 
SCOPE file to the contents of the buffer. The cursor 
position will indicate the position of the addition. The 
new text is placed before the character at the cursor. The 
user should be protected from buffer overflow, 

f, Formattino 

SCOPE should provide formatting features to 
improve the final document or prooram’s appearance and 
thereby increase its readability. The formatting features 
in the design were principally determined by the 
requirements of thesis preparation. During the formatting 
session# the cursor should mark the position of the 
formatting action. Formatting specifications may be set 
before text creation and can be modified at any time. The 
formatting specif ica* tions should be in effect from their 
initial setting/entry point until changed or nullified, 

Most formatting will be provided automatically on the basis 
of a standard/default set of specifications derived from 
the IMPS Thesis Manual, The following list of specific 
features should be available through the SCOPE formatter, 

- Margin Setting--shoula allow the user to set 
or change the left# right# paragraph# top# bottom and page 
margins at any time. 
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• Paqe Lenqt h--shou 1 d allow the user to set or 
change the number of lines that can be written to the 
ha rdcopy output. 

- Line Spac i nq--shou 1 d allow the user to set 
or chanqe the soace between lines of text. Sinqle/ double 
and triple spacinq should be Provided. 

- Skip L Lne s --S h ou 1 d allow the user to add 
extra spacing between lines bv skipping a specified number 
of lines or writing a specified number of blank lines. 

- Page Numhe r i ng--s hou 1 d allow the user to 
number or not number the pages of text. The user should 
also be able to increment the paqe number on a specific 
page . 

Pane Eject--should allow the user to end a 
page at will and skip to the top of a new page. 

- Fill--should allow the user to put as many 
words as possible on a line of text and will be the default 
mode. Filling should not aoplv to irregular lines such as 
titles or running headers ana footers. 

No Fill--should allow the user to place 
particular words on a line and create irregular lines of 
text. 

- Cen t e r --S hou 1 d allow the user to center a 
line of text. 

- Right Justifyshould allow the user to 
align a line of text along the right margin. 
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- Underline--should allow rhe user to 
underline characters within the text. Punctuation marks 
should not be underlined. 

- Adjust--should allow the user to generate 
filled text aligned along the right margin. Extra blanks 
will be inserted between words to achieve this result. 

*• I nden t --S hou 1 d allow the user to indent or 
move the text to the right a specified number of spaces. 

” Tab--should allow the user to set tab stops. 

*• Tab 1 e-Hand 1 i ng--shou 1 d allow the user to 
easily construct tables or columns of text using the tab 
key . 

- Titles--should allow the user to indicate 
five different types of titles or headers^ first through 
fourth-order and other. The system should automatically 
format the ^irst through fourth-order titles as per the 
thesis manualf while the other type is centered on a new 
page. Header numbering and lettering should be considered 
for possible inclusion. 

- Running Headers and Footers--should allow 
the user to write a specified message across tne too or 
bottom of every page of the document. The user should also 
be able to specify where within the top and bottom margin 
the header or footer is located. 

- Paraoraph/No Paragraph--shou 1 d allow the 
user to define a new Paragraph or return the text to 
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non -pa p ag raoh status 



“ Foo t not e-”Shou 1 d allow tKe user to input the 
infoPTiation to be contained in the footnote which will then 
be automatically positioned by the system in accordance 
with Thpsis Manual directions* 

D. TESTING 

Ease of testing was an important desicjn cons i de r at i on , 
An incremental approach should be generally taken in 
testing. In this method each module is designed/ coded ana 
tested by itself and then added to other tested/ working 
modules. Incremental testing greatly simplifies debugging 
by limiting the scope of the errors encountered. It also 
allows the discovery of logic and implementation errors 
early enough to prevent their repetition in other modules 
and thus eliminates the need for major redesigns once 
unde r wa V . 

Two debugging tools were designed to aid the test 
process. One tool was a procedure which displayed the text 
and format commands within the buffer upon the screen. The 
second was a program which provided a listing of the raw 
file. Both of these tools replace the format commands with 
special or text characters to allow their display/listing 
because the control codes themselves are unprintable and 
could generate unwanted results/ e.g. a form feed. 
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E. DESIGN APPRAISAL 



Why is the SCOPE design "better” than other existing 
systems? A brief comparison of SCOPE and the reviewed 
systems highlights the critical differences. SCOPE'S 
integrated editor and formatter concept is superior to 
separate editor and formatter packages, like TED and PRO or 
Ed and NROFF, because the user performs both editing and 
formatting while executing a single system. Becatjse of its 
interactive nature, SCOPE is easier and faster to use than 
NROFF or PRO. A user can, with SCOPE, change a format 
specification and immediately see the results rather than 
having to visualize them. It is no longer necessary to 
produce a listing or a display in a separate process for 
verification purposes. 

SCOPE provides more extensive formatting features than 
are availaole in NED, Vi, or the UCSD PASCAL editor, and 
supports these features with on-line user aids. The user 
assistance provided bv SCOPE is more comprehensive than 
that of any of the reviewed systems. The conversational 
prompts and error messages coach the user through the text 
creation process. The learning curve for effective system 
utilization is significantly reduced for the casual users, 
who should be able to operate SCOPE with a minimum of 
external documentation. 

SCOPE'S limited and simple, yet powerful, command 
structure is designed to be less confusing to the user than 



many of the others have proven to be. The mnemonic 
commands are intended to be easier to understand# remember 
and to use than those of earlier systems. 

Finally# unlike NED and ^PS-8# SCOPE does not require a 
special terminal with specialized function keys and/or an 
enlarged CRT screen out can be used on a wide range of dumb 
and intellignt terminals. 

In conclusion# the SCOPE design is a ’’better" design 
because it attempts to incorporate tne most attractive 
features of the reviewed systems while avoiding the 



limiting aspects of earlier systems 



IV. TMPLFMENTAT ION 



This section provides aeneral information about the 
SCOPE system, Proqram details nriav be obtained from the 
oroaram listing (Appendix B) provided. The listing also 
provides system documentation. An inital introduction to 
the system is provided along with compilation and execution 
instructions. A list nf aboreviations used throughout the 
program is included. Each f unc t i on/procedure is briefly 
described in the program, ^^nemonic nameSf modularity^ 
s t r a i gh t f n r wa r d logic and code as well as appropriate 
comments facilitate program unde r s t and i nq , Each 
function/procedur<» is short enough to appear on one page. 
Indentation and the PASCAL keywords aid in the tracking of 
program flow. Finally/ most yariables within the SCOPE 
program are global in nature. 

The SCOPE implementation presented here is character- 
ized by its isolation of implementation details and its 
modularity- The isolation of as much as possible of the 
actual implementation from the program as a whole is 
recommended by Plauoher and Kerniohan (151 . This 
recommended technique facilitates the optimization process 
or the selection of a new strategy because the desired 
result can he obtained by simply altering low level buffer 
management routines. The second attribute of this 
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irrplenrtentation, ifs rnodularitv 



is recommended by Sharma in 



[17], ^^odularity makes the provided services more adapt- 
able to chanqino renuirements. There is a common pool of 
gene ra 1 -purpose subroutines that are called by many of the 
services as well as spec i a 1 -ou roose routines. 

During the imnlem«>ntation process the Uf'ilX system 
provided two handicaps. The first difficulty was the slow 
response time. UtJlX suffers measurable degradation 
whenever graphics-related proarams are executed and/or 
multiple users are on the system. The second difficulty 
had to do with the special terminal conditions under which 
SCOPE oDerateSr which are explained in section 0. These 
conditions were a nuisance when tryina to execute commands 
and programs outside of SCOPE. The freauent and necessary 
changes of the terminal conditions were not only 
inconvenient but tended to increase user error. 



A. PP0GP^M^>'I^JG LANGUAGE SELECTION 

An important consideration in the system implementation 
effort was the selection of a suitable programming 
language. A high level language was sought. Desiraole 
features included structured constructs^ flexible and 
extensive data structures, and extensive error-checking ang 
diagnostic facilities. In addition, the language had to be 
able to distinguish between every character input at the 
k ey boa rd--espec i a 1 1 y control codes which serve as commands. 
Secondary selection criteria were availability 
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(unfortunately the new PL/I co'noiler by Digital Research 
was not available) and t ran soo r t ab i 1 i t y . PASCAL met all of 
the above mentioned criteria and was chosen. Soec i f i c a 1 1 y f 
the Berkeley Version 1.1 tlOl PASCAL i mo 1 emnnt at i on was 
selected because of its attractive run-time ootions. A 
PDP-ll/50 mini computer under the UNIX timesharing system 
(231 served as the host comouter, 

B. program logic and stpmctupe 

Software enoinenrim orincioles [121 were applied in 
developing thn program structure. The top-down design 
approach was followed. Major functions to be Performed 
were analyz<=‘d and decomposed into smaller/ more easily 
managed subfunctions. Functional modules were designed to 
be subprograms/ i.e. functions or procedures/ and were 
limited to one pane. During the analysis and decomposition 
phase/ SOFTWARE TOOLS [151 and Triyono's thesis (211 
Provided invaluable assistance. 

Coding and debugging were simplified and overall 
program clarity improved bv always selecting the simplest 
and most straightforward technigue to accomplish any 
"tricWy” or complex actions. In addition/ a single 
prompting procedure and a separate error message procedure 
were set up to centralize system communication with the 
user. Finally/ tradeoff decisions were made whereoy 
program simplicity/ reliability and maintainability were 
considered more important than speed/ storage or overall 
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C, DATA STRUCTURES 

The Berkeley version of PASCAL does not provide string 
manipulations and it does not allow the reading of strings 
from te^t files* In addition/ it allows only scalars-- 
inteoer/ characters/ or boolean values--to be passed as 
subprogram arguments. Finally/ set imolenentation is such 
that- sets may not be declared as constants/ nor do sets 
defined to contain character variables assignea using the 
standard function CHP oehave correct-ly. Despite these 
s h o r t c on i nq s / data structure selection was not a difficult 
phase. In order tg facilitate changes the actual data 
structure is hidoen from higher lev^l modules by a low 
level buffer management function designed only to 
manioulate the data structure. 

v^ithin this system there are two orincioal data 
structures. The first is the "raw'* text file as it exists 
in storage wh(»n not being acted on. It is a seguence of 
character data. It consists of the text characters and 
format c omm and/c h a r ac t e r s . Integers/ reals/ booleans/ 
strings and unstructured data types may not be included in 
this file. This file contains a beginning and end of text 
character or marker. 1/vithin the textf the lines and the 
paragraphs are set off by a line or paragraph marker 
resoectively. Although this line orientation is not 
strictly necessary it does simplify many operations/ 
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Dart-icularly the ^aDoinq fronn screen to buffer exolained in 
Section IV. G. The additional system overhead in 
maintaining these line markers is a small price to oay for 
the simplification. A oaraaraoh marker, once set by the 
user does not change its relative Position in the text 
unless thA user resets/ deletes it. A line marker# on the 
other hand# may be frequently shifted if as many words as 
possible arA being nlaced in a line# i.e. filled text# or 
text is insArted or deleted before the line marker. Line 
and paragraph markers occur at the beninnino of a line or a 
paragraph . 

The format commands# Other than markers# embedded 
within the text indicate special processing that is to 
occur to thA raw text before display or production of a 
listing can occur. A format command's range of effect can 
vary from only one character to the entire file. If the 
text file is created using a non-standard format# the 
characters in the file immediately following the beo inning 
of text marker ar» nrouoed together and called a "format 
record". This record only contains those user format 
specifications that differ from the standard menu provided. 
It should be noted that the raw file is useless unless the 
embedded format commands are masked out and processed. The 
standard PASCAL (111 procedures READ and WRITE and function 
EOF (end-of-file) are used to manipulate da^a within the 
text file. 
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Space usaae was carefully considered. The line and 
paragraph markers and format commands could add a 
significant amount of overhead to the system by taking up 
unnecessary space that could be used for text. This is not 
the case# howpver# because most markers and format 
commands# however, overlay what would be a blank between 
words. Extra blanks associated with indentation, 
tabulation and the end of a line can he eliminated or 
compressed. Within a line two spaces following the 
Punctuation marks# '.'# ':'# ’!'# and '?' will not be 
compressed because the mapoina is simplified. Two 
procedures PPOCESSBUF and PPOCESSPAW eliminate and compress 
extra blanks as well as insure that punctuation requiring 
two spaces is followed by two spaces where appropriate. 

The most important data structure within the SCOPE 
system is the text buffer. Figure ^-1 is a diaaram of the 
SCOPE buffer. Text and format commands# such as pm# reside 
in this data structure while undergoing user operations. 
This buffer is a large array of characters of approximately 
30,000 bytes. There are several inteaer pointers ind«‘xing 
this arrav. BUFINDX is the current location of operation 
within the buffer. INSBEG and IN SEND are pointers which 
delimit the INSERT AREA within the buffer. BHFLIMIT is the 
last Position in the array. CH is always the current 
character at BUFINDX. 
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Mov#>nn^nt throuqH the buffer is accomolished via the 



GFTRUFCHAP (Direction) function, exceot in the INStFT mode, 
where Dirpction is fl for forward movement, 0 for no 
movements and -1 for backward movement. The text character 
immediately orecedinq the IMSHEG location appears on the 
CPT screen at the cursor. ^^ovinq forward, i.e. riqht, down 
or scrollinq down, throuqh the text is performed in the 
following manner: 

GFTRUFCHAP (+ I ) which means that 

0IIFTNDX := RUFIMDX 1; 

IMSREG := INSREG f 1 ,* 

INSFND := INSFNO + i; 

BUFFER [BUFINDX] := BUFFER f I NSEUO] ; 

CH := BuTfER [PUFIMOXl . 

Movino backward, i.e, left, uo or scrolling up, throuqh 
the text buffer is performed in this manner: 

GETRUFCHAR(-I) which means that 

BUFFER CTNSEMDl : = RUFFER fPUF I NDX 1 ; 

INSFND : = IMSEND - 1 ; 

BUFTNDX : = BUFTNDX - i; 

INSREG : = TNSBEG - 1 ; 

CH : = BUFFER [BUFirjDXl . 
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GF T F3UFC H A P ( 0 ) allows the system to re- re f e r i»nc e the 
current buffer location. All of thf» buffer pointers remain 
unchanged. GFTBUFCHAP cannot be used in the INSERT MODE 
for reasons explained in Section IV. H. 

RFADPArt handles the buffer initialization for both new 
and existino files, A file must be read in and initialized 
before EDIT or FORMAT processing. Buffer initialization 
durino the creation of a new file involves entering the 
beginning and end o^ text markers^ entering an initial 
paragraph marker and setting the INSBFGf IN SEND and BUFINDX 
pointers. Remember that the current INSBFG and INSEND are 
empty. Initialization for an existing file is somewhat 
more complicated. Firsts the raw text file is read into 
the buffer character by character where the first cha^'acter 
goes into the first buffer position, the second in the 
second Position, and so on. Af^er the file is read, the 
text must oe shifted so that the INSERT AREA is correctly 
positioned. The last character read in is moved to the 
second to the last buffer position, the preceding one to 
the third to the last position, and so on until the 
beginning of text (bot) character is reached. It is not 
moved. The pointers, INSPEG, I M SEND and BUFINDX are set 
and in this manner the INSERT AREA is defined. This INSERT 
AREA is the key comoonent within the buffer. Text 
insertion, deletion, copying and movement is accomplished 
by resetting INSBEG and INSEND. More details of th®se 
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ooerations rr>av be found in the orogram listing. Format 
commanos and line and paraqraoh markers within the buffer 
are totally transparent to thp user who only sees them 
reflected on thn screen. 

Several other arrays are used within this system. The 
running header and footer lines are each stored in an 80 
byte array of characters. Two other arrays^ of 20 integers 
each/ are used in the TABULATION and AOJUSTLN routines. 

The column numberCsl of the tab location(s) is(are) stored 
in TABLOC^JS, Similarly, the relative location of blanks 
within a buff<=r linp of t»xt are saved in BLKLOCNS, These 
stored values indicate the sites for the insertion of extra 
blanks within the t^xt line to achieve right justification 
with filling, 

D. INPUT/OUTPUT HANDLING 

The use of a high level language such as PASCAL 
eliminates the messy details of input/outout (I/O) 
handling, T /O to and from the screen is accomplished 
using the standard PASCAL READ and WRITE procedures on the 
textfiles INPUT (keyboard) and OUTPUT (CRT screen). 

Correct SCOPE operation requires the setting of certain 
I/O options on the current terminal. The UNIX command 
”stty raw -echo nl“ sets the necessary options. RAW means 
that no erase, kill, interrupt are EOT characters are in 
effect and that the parity bit is passed back, NL tells 
the system not to automatically generate a carriage return 
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and line ^ e^n for a new line and that only a line feed will 
end a line. It also orevpnts the use of the PEADLN and 
i/^PITELN procedures. -ECHO prevents the systenn from echo i no 
back incut characters to the CRT screen. 

SCOPE filters the incut characters and selectively 
echoes bac< or writes to the CRT screen, preventing the 
display of unprintable control characters. A typical case 
is the handling of cursor movprp«nt in which the user 
generates right, left, upward or downward movement of the 
cursor. INCHAR is the character read in from the user. 

In addition to READ and WRITE, the RESET and REWRITE 
procedures ar^» used in I/O to and from other files. INFILE 
and OUTEILE are t e x files assigned specific names by the 
user, e.g. CHAPl.p and LISTING. p. The '.c' indicates a 
pascal file. RESET is used to open existino files ^or 
reading, while REWRITE is used to ooen and create a new 
file. IN FILE is used in the reading of raw text files and 
OUTEILE in the saving of raw tiles and the production of 
listings. READLN and WRITELN cannot be used on either of 
these files because the UNIX eoln (end-of-line) character 
does not exist in SCOPE generated files. UNIX writes 
OUTEILE in blocks of El? bytes. The Berkeley PASCAL 
function FLUSH is reauired to dump the last incomplete 
block of output to the waiting file. 
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The lack of strina 'flan i nu 1 a t- i on s causes all I/O to be 
done a character at a time which is somewhat tedious. 
OTSPLAYLN Derforms the necessarv orocessinq to display a 
line of text on the CPT screen. LISTLN produces a line of 
text for a hardcooy listing. both of these procedures call 
routines which orocess any embedded format commands and 
only portray the "processed” text as opposed to the "raw" 
text in the buffer. LUSERIMPUT and SUSERINPUT, for long 
and short user inout f rom the t^rminalr perform the READ 
function. They allow the user to enter a string of 
characters with the option of erasing any mistakes by 
tyoina a "control e" before hitting the carriage® return, 

LU SERIN PUT allows uo to characters to be inout and is 
used in the naming of files. It automatically checxs each 
entry for a *.o* in the name and appends it where 
necessary. SUSFRTNPUT allows uo to ^ characters to be 
entered at one time. Two procedures are used because 
strings must be padded with extra blanks to their full 
declared length. The slow response time/ due to UNIX 
degradation, was a Problem. Not only is it disconcerting 
to be typing several words ahead of what is being disolayed 
on the screen, hut immediate error correction becomes 
difficult. It is no longer a matter of simply erasing one 
or two characters that are incorrect. Instead/ the user 
might have to erase and lose several words to get back to 
the error. In addition/ during the erase action when the 
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cursor is movina backwards a delay can cause thp user to 
1 n ad V e r t en t 1 y erase more ^han intended. 

Because only character da^a is read and written by the 
SCOPE system there is no way of directly entering integer 
values for such items as oaae numbers or margin settings. 
To overcome this deficiencvr CONVPTtlUf^ transforms a 
character number into its erjuivalent integer value, Uo to 
a three digit number may be converted. It currently 
handles only positive values, 

E, THE SCOPE SYSTE'-i 

Imolementation oroceeded in an incremental fashion. 

The initial phase implemented a minimum set of system 
features. The minimum set of features allowed the 
production of a simple oaoer but not of this thesis. This 
skeletal system was a barebonps approach with many options 
eliminatedf e,g, th« basic formatting specifications 
setting up thp Pane layout (margins^ lines oer oaae and 
line soacina) were defined as constants. During the 
analysis of system teaturpSf the basic system design 
evolved into four nested levels or modes, ^t the highest 
or outermost levelr i,e. global mode/ the system reads or 
writes files/ edits/ formats or leaves the SCnPE system 
based on the input us^r commands. The global mode (SCOPE 
DRIVER/ MAINLINE) is the driver of the entire system. 

Figure is a pseudo code represent at i on of the SCOPE 

DRIVER, 
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The second level consists oT thp followinq essential 
system features: 

a. read in an existinq file or create a new file» 

b. write the raw file out to storaoe^ 

c. edit the text file/ 

d. format the text file in a reasonable manner# 

e. oreoare a hardcooy listinq of the file# and 

f. exit from the system. 

Each of the above features# except system exit# is a 
major module within SCOPE. »vithin this level lies the 
third level of modules or subfunctions# e.q. I M SEPT and 
DELETE for EDIT. At the innermost and lowest level are the 
functions to manioulate the data structures and other 
support routines# e.q. cursor movement and maopinq. Cursor 
movement and n^aooino are kev modules which are discussed in 
Section I V . G , The movement of the cursor on the CRT screen 
must be correctly reflected in movement throuoh the text 
buffer. There must be a one-to-one co r resoondence between 
the character at the cursor and this character's location 
within the text buffer. 

Entry to lower levels# e.o. subordinate modules# is 
accomolished by callinq the required procedure or function. 
Return to a higher level is usually accomplished via a 
"quit" or "control o" command. 
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It” is i'T'oort-ant at- this Doint to reiterate th^» chief 
desicjn ooal of t“his svste'f which is to develoo a friendly 
and foroivinq tool. Users will probably not be using this 
system on a daily basis and so will not be intimately 
familiar witn commands. vSuch casual users will not utilise 
the system if a lot of time must be soent learning and 
relearning th«» command set. For this reason# it was 
considered imoerative to have short# simple# 

e a s y - 1 o - r e membe r and easy-to-use commands, T e command set 
is also consistent- t-hrouqhout the different SCOPE modes of 
one rat ion. 

This is an interactive# screen-oriented system and 
these features are exploited. Three lines at the top of 
the CPT scrp»en aro set aside permanently as a message area 
for the display of prompts and error messages and the entry 
of some user commands. Entry and exit from any of the three 
outer SCOPE levels causes a prompt to be generated in the 
message area. This prompt tells the user which commands 
are currently available to him for execution and how to 
initiate execution. 

Commands are mnemonic and one character in lenqtn. The 
command is usually the first letter of the action to be 
performed. Some commands# e.o. page number# require entry 
of a numeric argument. Many commands are dependent upon 
cursor movement. In some instances the control key is used 
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in conjunction w i Mi another character to differentiate 
between a command and a text character/ e.g. in the insert 
mode* The EDIT and FOR ‘-''AT commands are described in mo^e 
detail in sections TV.H. IV. I. 

G. CURSOR MOVEMENT AMD MAPPING 

Establishino and maintaining the correct relationship 
between the screen display and buffer was the most 
difficult asp-^ct of the SCOPE implementation. There has to 
be a on^-to^one cor respondence between the character shown 
on the screen and its location within the buffer. Format 
commands are transoar'^nt t- o the user but must be reflected 
on the CRT screen, e.g. a paragraph marker is shown bv 
indenting the linp. Cursor mapping is carried out by the 
MAPCURSGR function which processes the format command and 
sets UP the screen display as necessary. SETCUPSOR is 
another mapping function which comes into plav during the 
scrolling actions. 

There are two methods of cursor movement available and 
both are presented in figure Movement within a single 

line is fairly simole but wrapping around to the previous 
line, or jumpina multiple lines complicates the picture 
Quickly. Cursor movement is simplified bv making it a 
line-oriented process. STAPTLN and NEi^JilNE are key 
functions in determining the correct user line location. 
GETCHAR is used to produce movement one character to the 
left or right. JmptOMARKER allows the user to jump to the 
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bpQ^nnino or the end of the currently active file* Further 
details about the cursor maDoinq and rnovernent are available 
in the oroqram list inn. 

H, EDIT 

EDIT is orobablv tho most important module within the 
SCOPE system. It is used to move the cursor and thus scan 
throuqh the body of text as well as to make moo i f i c a t i ons 
to the text. The EDIT commands are listed in Figure ^-^4, 
The uDoer case letters ar»= used to allow the same oeqinning 
letter to be us»=df e.o. x for xchanqe and X for Xtractfile. 
In addition, the capitals indicate file manipulations where 
the lower-case commands only deal with the buffer. The EDIT 
command modules closely follow the desian, with the 
exception of SETMAPKEP which is used by almost all of the 
other EDIT features to delimit the body of text to be 
searched/ copied, moved, extracted, etc. Many of the EDIT 
features remain to be implemented. 

The initial implementation involved only INSERT and 
DELETE. INSERT adds t<“xt directly to the buffer through 
the INSERT AREA. Because GETBUFCHAR, the low l^vel buffer 
management function works on the outside of the INSERT 
AREA, it can not track the new characters entered into the 
INSERT AREA. All inserted and deleted text must be 
processed by PROCESSBUF to ensure that the line markers are 
correctly positioned. This processing occurs in paragraph 
increments because a paragraph is the smallest text 
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seo'nent. Durinq rho text insertion process^ certain 
formattina commands are entered directly by the user into 
the buffer, Irreaular lines during the fill mode must he 
ended with a break character. Titles may be labeled at 
this time. In addition, the fill, no fill, adjust, adjust 
off and the tab commands may be entered. 

Along with INSE^^T and D^LETF, an XCHAtIGF function was 
set UD and used. This allowed the replacement of many 
strings of thp same length. Because the string is the same 
length during an XCHAMGF there is no need to process the 
the modified text which is more efficient then reading and 
processing at least one paragraph to reposition line 
markers i^ necessary. Several users have enjoyed the 
automatic wraparound feature which speeds up the inout 
process . 

I. FORMAT 

format implementation has been limited to titles, 
centering, tabs and other essential features for thesis 
preparation. The following paragraphs describe the 
intended SCOPE FORMAT implementation. 

The For'^at mode can be entered at any point during the 
editing session to change the output specifications. It 
also moves the cursor to scan the text, and in addition, 
some commands depend upon the cursor for proper execution. 
The user moves the cursor to the position from which the 
format command will begin to have effect, enters the 
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correct for-rar co'^rpend and is then oro'Tioted for the correct 
command arqumenfs. Formaftinq chanqes are immediately 
reflected on the screen for user examination. 

Figure outlines the FGR'-’AT command structure* User 

commands are alohabetic characters but the format commands 
in the buffer are control codes. All the format commands 
were assiqned control codes so that they could be easily 
distinquished from text characters. The decimal ASCII code 
is the aroument for the PASCAL CHR function which is used 
to assign and identify all the format commands within the 
buffer. The keyboard control characters ar#» used 
infrequently by the user during the editinq and formatting 
process. Certain commands^ e.g. break, adjust, adjust off^ 
fill, no fill, oaraoraph marker and tab may be entered 
directly by the user. '/'Jithin the buffer, the numeric 
arguments for any format commands immediately follow the 
command and are thems'^lves followed bv a break character so 
that they may be easily distinguished from text numerals. 
v^ihenever oossibler the input command fcommand syntax) is 
mnemonically indicative of the action to be performed^ e.g. 
'u' for underline. The slashes in certain commands 
indicate that the command is complex, has multiple 
arguments and that the user will go through a series of 
prompts during commend entry. Margins are a good example 
in which the user makes three different entries to set a 
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Menus sucH as those presented in Fiaures ^i-6 and a-7, 
are displayed unon user request to describe the current 
output specifications. Fiqure 'J“6 will be displayed unless 
the user has made some format changes. Fiqure /4-7 will be 
displayed^ if any of the default specifications have been 
a 1 t e red . 

J. WRITE RA^ FTLF 

This module is the simplest of the main modules. It 
writes out every fe><t character and format command# except 
a rubout character# within the buffer to the u s e r - soec i f i ed 
file. The rubout character is used for the deletion of 
characters or spaces whan it is inconvenient to manioulate 
the IMSERT AREA to do so. In this manner SCOPE files are 
saved for future use. 

K. LIST PROCESSED PRES 

Hardcopy printouts or listings af the text file are 
required whenever the screen display is not adequate# e.q. 
proofreading is often more easily accomplished on paper. 
This process is hardware dependent- because printers have 
various drivers# carriaae control mechanisms and 
toP*“of-form alignments. To provide some degree of hardware 
independence# SCOPE includes a procedure PRINTER which 
queries the user aoout the printer and maizes appropriate 
margin adjustments. 
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The actual orintinq process is carried out in two 
steos. In the first steor the format commands within the 
buffer ar^» nrocessed and th» reouisite characters# e.a. 
blanks for margins or carriage returns and line feeds for 
line and paragraph mark<»rs/ along with text characters are 
written to a use r-soec i f i ed output file. This output file 
contains only text characters# i.e. clanks# alphabetic# 
numeric and special character data# and carriage returns 
and line feeds. The second step of the printing process 
must be done outside of SCOPE execution and is accomplished 
using the Shell command “cat filename. ollor” [231. Unless 
multiple copies are being made# this method wastes 
secondary storage and should be changed before a production 
status is achieved. A direct one-sten listing generation 
is more efficient. 

L. SCREEN DISPLAY VICE LISTING 

Although th® design called for an exact duplicate of 
the final hardcopy output on the screen# that is not the 
case in this implementation. There were several reasons 
for this design departure. Figure is a diagram of the 

CRT Screen Lavout. Since the area of the screen available 
for the display of text is limited (only 21 lines here)# 
double*soacing only allows the user to see a small segment 
of text (11 lines). Better use of the screen occurs wn^n 
the text is single-spaced (21 lines of text are then 
displayed). Figures and ^-10 illustrate this point. 
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The screen depiction elso does not shou< adjusted lines of 
text. ^anoina the cursor to the buffer contents becomes 
much more difficult and requires the maintenance* of 
information about each displayed line it wraparound and 
other features are continued in their present form. The 
too and bottom marains which include the runnina header and 
footer and pane number do not appear on the screen. 

Finally# the representation ot underlinina is difficult 
because the underline character overwrites the text 
character at t-he same position. 
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V. FOLLOW-ON WORK AND ENHANCFMFNTS 



Although thp SCOPE svstAm was used in the oroduction of 
this thesis^ more implementation and testina must be 
carried out before the system is ready for release to 
general users. The SCOPE program contains untested code 
segments^ e.g. AOJUSTLN. S<“v«*ral important editing 
features require implementation. The COPY feature has not 
been fully teste (i. MOVE has not been implemented. The 
COPYf '''inVE and XTPACTFILE features need to carefully chec*< 
the format soecifi cations in effect at the original segment 
location. This may mean going baci< to the beginning of the 
file and checl<ing all the format commands betwei^n the 
beginning and the start of the text D«ing acted on. The 
LOCATE feature to do oattern searches can be imnlemented 
using the algorithm in reference (31. To be successful^ 
LOCATE must identify a oattern that has embedded format 
commands. REPLACE will use LOCATE to find the oatterns to 
be reo 1 ac ed . 

Many of the FORMAT specifications are currently fixed 
within the Program and cannot be modified directly by the 
user. FORMAT command sequences were designed but not 
implemented for commands requiring arguments. In addition/ 
table-handling and footnote mechanisms must be completed. 
The adjusting of text must be implemented for hardcopy 
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orintouts. Runninq headers and footers should be added. 

Uoon co^oletion of the imolementationf systematic 
testing of the SCOPE system should he conducted. A user- 
oriented SCOPE t^anual should be be develooed. A UNIX Shell 
prooram should be develooed for system initialization and 
termination. This oroqram would handle the setting of the 
terminal stty ootions and initiate execution. 

Once in a production mode^ "ougs'* uncovered by the 
users will have to be corrected. Surveys of SCOPE users 
should be conducted to determine suggestions for stream- 
lining oromotina and command sequences# overcoming tne most 
common user errors# and enhancing the system. An 
efficiency analysis# using orofiles# should be conducted to 
determine the most suitable areas of code for ootimization. 

This system is intended for use in the preparation of 
programs as well as documents# but so far no work has been 
done in that area. The format commands# being control 
codes# will hav® to be masked out or processed before a 
SCOPE file can be used as input to any compiler. 

There are many possibilities for system enhancement. 
SETMARKER could be ®xoanded to allow the user to set other 
markers within the file to pinpoint special locations. The 
adjusting of text lines on the screen and the associated 
mapping to successfully handle the extra embedded blanks 
would be a worthy project. Underlining could be 
represented on the screen as another line of blanks and 
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cHaract'^rs underneath the required oostion. 

The oaqe conceot on the screen where the oaae margins 
are actually shown deliT^ited on the screen with the ”1” 
character down each side for instance and the top and 
bottom of the Page indicated hy dashes f"-"l across the 
screen could he introduced. In this manner the screen 
becomes a more exact copy of the final output document. 
Carryina this further/ the pane scrolling mechanism would 
not only scroll through one hard cooy eoui valent of a Page 
but allow the user to request a oar^ 1 cular page bv nu'^ber. 

An UNDO command allowing t h user to »asily recover 
from his last action miohr be h»loful. Another valuable 
feature would be ♦’he provision of a document- index 
containing oertin^»nt information about the document such as 
its titles date of last undated size/ et-c. This index 
would be readily accessible to the user from the co'^mand 
level. The introduction of a macro-orocessino capability 
would b<* another Possibility for *»nhancempnt. Finally, 
common document formats could be storea as templates to be 
easily accessible to the user. 

This design could be implemented on other svstems. The 
INTEL-based 8080/Z-^O microprocessors are prime candidates 
using the new PL/T compiler bv Digital Pesearch. Another 
candidate for SCOPE implementation is the 13 M svstem 
scheduled to be installed at the 'W. R. Church Computer 
Center in the fall of 1P30. 
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VI 



CONCLUSIONS 



The desiqn criteria for a ’’better" text process inq 
system were discussed and a desiqn was developed- This 
desiqn was based uoon an <“xami nation of currently available 
systems and a review of the d*“siqn crit^^ria set forth oy 
recoqni^ed desioners such as Kerniqhan and ^lauqher and 
Xerox Personnel. SCOPE'S screen orientation, interactive 
nature and inteoration of services are the keys to this 
better desiqn. The implenentation demonstrates the 
feasibility and value of such a comprehensive system. It 
is hoped that the desiqn criteria presented here can serve 
as a quide in the development, evaluation ana selection o ^ 
commercial text process inq systems^ as well as presenting a 
basis for the desiqn of n#*w text handling svstems. 
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APPENDIX A 



cursor 

\ 



INSERT AREA! 



......... 



b b 1 

e u n 

a f s 

i i b 

n n e 

n da 

X X 



n 

s 

e 

n 

d 



h 

u 

f 

1 

i 

m 



the above buffer confents would apoear on the screen as 



SCORE Svsten, 



where represents the cursor position. 



Fioure ^-1. SCORE Buffer Lavout 
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begin /SCOPE DP I VE P A I NL I NE > 



initi aHze variables; 

f e r Ti i na 1 ; 

o r i n t e r ; 

set de f au 1 t s ; 

set foTTatcmds; 

c 1 ea rsc r<*en ; 

rene a t 

D r onno t ; 

userinDut/cn^d); 
it valid c 'nd then 
case C'T'd o t 

' e ' ; edit; 

't': fomat; 

listorocessed; 
'o': stoo : - true; 

' r ' J read raw ; 

*w': writeraw/* 

end (case) 

else {not a valid command} 
e r ro rmsQ 
until stop; 
end . 



Figure SCOPE Driver 
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■-I 






*1 

>! 



Mp t hod T 



Method 




'^ove uo 1 line» stay i no in samp column 
or the one closest to the le^t, 

'^ove riaht 1 columnr at end of line oo 
to first char of next line down. 

Move down 1 linpf stayina in samp col 
or the one closest on the riaht-. 

Move left 1 columnr if beginning o* line 
ao to last char of orevious line. 



II 



cr Move to first char of next line down. 

'U' ScrolluPr move un aoorox i mat e 1 y 3/^*s 

of the scrppn with 5 lines of overlao 
Scrolldown, move down aocroximately 3/''J's 
of the screen with 5 lines of overlao 
* h, • Go to the beainnina of the file. 

'e* Go to the end of the file. 



Fiaure ^-3. Cursor Movement 
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a 



Command 

Syntax 



Command P’unction 



A 

c 

C 

d 

i 

1 

m 

q 

r 

s 

X 

X 



A d d f 1 1 e 
cooy 

Cursor Movement 

delete 

insert 

locate 

move 

QU i t 

reel ace 

setmarWer 

exchange 

eXtractfile 



Figure SC0*^E EDIT Commands 
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Decimal 


Command 




Formattinq Command Keyboard 


ASCII 


Syntax 




Con t ro 1 


Code 








Code 


1 


a 




Adjust 


A 


? 


b 




Break 


B 


5 


c 




Center Line 


C 


a 






UNUSED [UNI Y end of file! 


D 


5 


e 




Page Eject 


E 


6 


f 




Fill 


F 


7 


m /n / a 




Page Number Marain 


G 


8 


h/h , f /I , 


m , r / tt 


Punning Header/Footer 


H 


o 


tab W ey 




Tab 


I 


10 


line feed Wey 


UNUSED fUNI/ ' '] 


J 


1 1 


i /a 




Indent 


K 


12 


1 




Line Spacing 


L 


13 


c a r r i a a e 


r t u rn 


Line *^arker 


M 


la 


n/-t , « 




Page Number 


N 


IS 


o 




Fill Off 


0 


16 


C on t ro 1 


D 


Paragranh Marker 


P 


17 


m / t / ^ 




Tod M^^rqin 


Q 


IP 


r 




PiqHt Jus^'ify Line 


R 


IP 


s / a 




Skip Lines 


S 


20 


t/a 




Title 


T 


21 


u 




Und^ r 1 i n e 


U 


22 






a V a i 1 a b 1 e 


V 


23 


m/1 /n 




Left ^arqin 




2a 


X 




Adjust Off 


X 


25 


control 


y 


Beginning of text Marker 


Y 


26 


con t ro 1 


z 


End of text Marker 


Z 


27 


b 




Begin Delimiter M3pi<0r 


[ 


28 


n/b/a 




Bottom Margin 


\ 


2 P 


e 




End Delimiter Marker 


1 


30 


m / r / ^ 




Right Margin 


y a 


31 


m /o/ ^ 




Paragraoh Margin 


V a 



Fiaure ^- 5 , SCOPE FORMAT Command Structure 
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■s, * 
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OEFAULT/ST ANDAPD FOR'^AT MENU 



Rot tom 


M 


a r g i n 


P Ins 


= 1 1/2" 


Left 


Ma rg i n 


c 0 1 1 5 


= 1 1 / a ’• 


Paae No. 


M 


a r g i n 


6 Ins 


= 1" 


Paragraph 


a r q i n 


c 0 1 1 7 


= Ltmargin-*-^ 


P i a h t 


M 


a r g i n 


col 72 


= 1 1 / a ’• 


Too 


M 


a r g i n 


h Ins 


= 1 " 


Note: 


1 0 


c h a r s / i 


nc h and 


O Ins/inch. 






On 


Screen 


On L i s t i nq 


Adjust Mode 




off 


on 


Fill Mo do 






on 


on 


Li neSoac i ng 


S i 


nolo 


douD 1 e 


a X lines 






21 


66 


Window Si 


Zo 




21 


N/A 


Tab 






a 


a 



Figure ^-6. SCOPE FORMAT Menu(*^efault) 
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CUPRFNT FOP’^AT MENU 



Pot tom 


M a r g i n 


6 Ins 


Lett 


M a r g i n 


col ft 


Page No. 


Margin 


5 Ins 


Pa rag r aoh 


Ma r g i n 


CO 1 1 2 


P i a h t 


Ma r g i n 


col 72 


T OD 


Ma r g i n 


6 Ins 



Not^: 10 chars/ inch and 6 Ins/inch. 



Adjust Mode 
Fill Mode 
LineSpacina 
Max lines 
Window Size 
Tab 



On Screen 
off 
off 

douh 1 A 
21 
10 
ft 



On Listing Page 
off 
off 

doub 1 e 
6 b 
N/A 
8 



Figure ^-7. SCOPE FORMAT Menu(Current) 
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M 



-*!columns 
I : 
i : 
n J 
e! 
s ! 



Ill a 78 

1 5 0 , . 5 . , .7 // 2 // 2 0 

L P C RE 



1 

2 Messaae Area 

3 



IX 

*5 

6 

7 

8 
9 

10 
1 1 

12 Text Area 

13 

la 

15 

16 
17 
1« 

19 

20 
21 
22 
23 

2a 



L ==> Left Maroin Settina 
P ==> Paraaraoh ^arqin Settina 
C = = > Center of the vScreen 
R r = > Riaht ’'•’arain Setting 
E ==> Last Col unn 



Figure a-8. CRT Screen Layout 
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EDIT mode 



o ) u i t A)ddfile X)tractfile C)ursorwove 
c)oDy d)eletf* i)nsert 13ocate m)ove 
r)eDlace s)etmarlfer x)chanqe 
Although the design called for an exact duolicate of 
the final hardcoov outgtjt on the screen^ that is not the 
case in this imnlemantation. There were several reasons 
for this design departure. Figure is a diagram of the 

CRT Screen Layout. Since the area of the screen available 
for the disolay of text is limited (onlv ?1 lines here)» 
douh 1 e- soac i no only allows the user t^ see a small segment 
of text (11 linos). Petter use of the screen occurs wnen 
the texf is s i ng 1 1 e-soaced (21 lines of text are then 
displayed. Figures and ^-10 illustrate this point. 

The screen depiction also does not show adjusted lines of 
text. flapping the cursor to the buffer contents becomes 
much more difficult and requires the maintenance of 
information about each displayed line if wraparound and 
other featunes are continued in their present form. The 
top and bottom margins which include the runnung header and 
footer and oaoe number do not aooear on the screen. 

Finally^ the representation of underlining is difficult 



because the underline 
character at the same 



character 

Position. 



overwrites the text 



Figure ^ -R . 



Sample SCOPE Screen Display 1 
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.1 



, f «l» 



# 

o 



Xl 












EDIT MODE n)ui»- A)ddfile X)tpact^i1e Oursormove 
c)ooy d)elAt*» i)ns<=»rt 1)ocate m)ove 
r)eolace s ) ^a rke r x)chanqe 
Although the desion called for an exact duplicate of 

the final hardcoov output on the screen^ that is not the 

case in this imolemontation. There were several reasons 

for this desion departure. Figure is a diaaram of the 

CRT Screen Layout. Since the area of the screen available 

for the disnlay of ^ ex t is limited (only ?1 lines herein 

double-soacino only allows the user to see a small segment 

of text (11 lines). Fetter use of the screen occurs when 

the text is singlle-soaced (21 lines of text are then 

displayed. Figures and ^-10 illustrate this point. 

The screen depiction also does not show adjusted lines of 



Figure ^-10. Sample SCOPE Screen Display ^2 
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APPENDIX B 



SCOPE 

SCOPEf SCreen-Oriented Processor and Editor, is an 
interactive/ inteqrated/ screen-oriented/ cont-ext* oriented 
text orocessinq svs^efT>, It performs the functions of both 
a text editor and formatter. The following paraqraohs 
provide a brief descriot-ion of the intended SCOPE Syste'Ti. 

k^hile using SCOPE/ the file that is edited or formatted 
is displayed on the CRT screen which acts as a "window" on 
the text. This file exists in a stream format/ i.e./ the 
file is a continuous stream of character data. In this 
character stream, the lines of text are defined by a line 
marker or a paragraph marker which preceeds each line or 
paragraph respectively. Along with the text and markers 
the stream also contains format commands which cannot be 
confused with either the text or markers. 

The cursor position on the screen serves to pinpoint 
the text to be processed. Cunsor movement occurs in one of 
four directions; down and right for forward movement and up 
and left for backward mov>»ment . Movement through the body 
of text is accomplished character by character, line by 
line/ a screenful of lines at a time/ or by a page of lines 
where a Page reflects the hardcopy printout length. Raoid 
movempnt through the text is Performed using commands/ e.a. 
*D* for scrolldown/ which allows the user to move forward 



RO 



J»v 

Si 

\i 

1 

i 



I i 




throunh the eauivalent of 3/^’s of the screen, 

Durino the editino session, text is inserted in free 
format with full-word wraoaround at the end of each line. 
The system worries about *»ach end of line thereby freeing 
the user to concentrate only uoon inoutina as raoidly as 
possible, Rlocl<s of text may be cooied from one place to 
another within the same file and to another f i 1 <» , Deleted 
material is not r<»moved from the buffer until the user 
positively ac *< no w 1 edae s this action thus preventing some 
unintentional errors. Context searches are also available. 
Table construction is facilitated by the use of tabs. The 
format specifications are in effect during the edit 
process , 

In the formatting mode the user immediately sees the 
processed results upon the CRT screen. The cursor position 
again determines where the formatting action is to occur. 
Menus are provided t- o the user for the selection of desired 
formatting specifications. There is a default menu that 
provides the user with a reasonable page layout as defined 
oy the NPS Thesis Manual. Hargcooy printouts of the 
document mav be g#»nerated on various models of printers. 
Centering, right justification, i.e. alignment along the 
right margin, underlining, running headers and footers and 
footnoting will be provided. 
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1 

i 



! 

1 



SCOPE E)fecution Comfriands 



% sttv raw -echo nl 
X ox scooe 


{does not aooear on screen} 



enter the terminal tvoe as follows 



1 for adm-^a f ? for 

> 


dmlS20, 5 ^or dm2500 


orint list i no on 
> 


U^JIX orinter--y or n? 



command mode > 

e)dit flormat l)istino o)uit r)eadfilp w)ritefile 
SCOPE Compilation Commands 



% oi -D filename-o 

-2 

-D 


{ t 0 comp i 1 e source) 

(to q'*nerate profile counters) 
{necessary to turn off stmt 


% mv obi scope 


{to correctly name the ooject 
modu 1 w e ) 


X Dxp ~]2 filpnamp.o 


{provides formatted oam listing) 


X DXP -7 f i 1 ename . p 


{to generate profile) 
limit counter) 



DroqrafTi s c oDe ( i nou t / outout# infile^ out^ile); 



( * abbreviations used in SCOPE in alohabetical 



add r 


add r e s s 


b / hea 


beo 1 nn i nq 


b 


bottom 


b 1 k 


blank 


bu f 


bu t f e r 


c 


c en t e r 


c h , c ba r 


character 


c hq 


c h ame 


end 


C ommand 


C n t f c n t r 


count# co'Jntar 


c o 1 


col umn 


const 


constant 


C on V r t 


convert 


C r , c 


carriaoe return 


0 


sc ro 1 1 down 


de 1 


del e f e 


d i r 


d i rent ion 


e 


end 


i n 


i n D u t 


i , i n d X 


i n d e X 


i n i t 


initialize# init 


i nc 


i nc remen t 


1 n S 


i n s e r t 


j mo 


j umo 


1 


left 


1 f 


line feed 


1 m 


line marker 


1 n 


line 


1 oc n 


1 oc a t ion 


m 


ma r k e r 


max 


max i mum 


msq 


me s saae 


neq 


neqa t i v e 


no / num 


number 


o 


o f 


Dr oa r a 


oa r aa r aoh 


DO 


oaoe 


pm 


oaraoraoh marker 


DOS 


DOS i t i V e 


r 


r i qh t 


t 


too# text 


u 


unde r # uo 


U 


sc r o 1 1 UP 


va r 


V a r i ab 1 e 



*) 



o '^ae r 



1 i z a t i 



end 



abbreviations 



const 

overlap = 5; (*no of Ins to be recooied during scrolling*) 
buflimit = 30000; 

Innaxchars = 1^; (*limit on user inout of Iona length*) 

smaxchars = ( ♦ 1 i 7) i t on user inout of short length*) 

msalns = 3; C*no. of lines in mso area*) 

1 i ne 1 = 1 ; 
line? = ? ; 

1 i ne3 = 3 ; 
n e q 1 = - 1 ; 

DOS 1 = 1 1 ; 

zero = 0 ? 

CO 1 8 = 8 ; 

coll? = 1 ? ; 
coi?a = ?a; 



8 ^ 



■ ■ '■■Mkji, 



W ■■ 






'5nI 



'•f' 

-p 

'K 






■ "■' i’ -;'i'ii 






tm 






m'fi 



va r 



e^iotybufr filereadr naminqfHe/ stoo: boolean; 
fill/ markersok/ alistinq: boolean; 

beqmset/ endmsetr newmset : boolean; 

ch, cmdc^^ar, eotchar, bell / bo^c^^ar, down: chap; 
accept/ erase/ quit/ om/ 1 m , If/ cr, clear: char; 
bfT>/ em/ nm/ inchar/ ho're/ left/ up/ riqht: char; 
centerlnch, underinch/ titlech/ nqejectch: char; 

indentch/ headerch/ footerch/ fillch/ rubout : char 

pgnumch/ filloffch/ skiolnch/ breakch: char; 

rtjustifvch/ Imarqinch/ rmarainch/ tabch: char; 

tmarqinch, bmarqinch, ornarqinch, ooma r q i nc h : char; 

adjustch/ adjustoffch, Insoacinqch: char; 

fescaPe/ rubout:char; don't- work in raw mode) 



buffer: arrav [l*.buflimitl of char; 
cmd: array [ 1 . • S'^'a < c h a r s 1 of char; 
name: arrav [ 1 • . 1 ma x c h a r s 1 of char; 
footbuf: array (I..B0] of char; 
headbuf: array (1..80] of char; 
underlnbuf: array fl..P01 of char; 

infile/ out-file: text; 

CHfidset / edcndset/ cursor'^oveset ; set of char; 

< c u r so rmo ve se t is only for documentation ourooses 
because this Pascal doesn't allow chr defined 
variables in a set to be recognized nroperly.) 

n/ bufindx/ insend/ insbeq/ number: inteoer; 

rowno/ colno/ lastcol/ lastln/ oaqeno: integer; 

termno/ blnqffset/ tlnoffset/ rmaroin: int»oer; 

bmarain/ Imarqin/ oqmarqin/ omarqin: integer; 

tmarqin/ maxoqlns/ Insoacinq: inteaer; 

delbeq/ delend/ i/ i/ beatext: integer; 

beqinox/ endindx/ newindx: integer; 

charcnt/ centerofpg/ tab/ tabcnt: integer; 

blklocns: array fl..201 of integer; 
tablocns: arrav [l..?01 of integer; 
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function bot : boolean; 

(* this func indicates that the beainnina of 



the text has been reached when 


i t 


is true 


b e a i n 




bot 


*) 


bot := ch = botchaf* 








end ; 




bot 





function boln: boolean; 

f*this func indicates that the char Cch) read 
frofT^ the buffer or file is the beainninq of 
line marker, i.e. Im, 



bea i n 

boln := ch = Im 


f 


boln 




end ; 


f * 


boln 


O 



function boo: boolean; 








(♦this func indicates that 


the 


char 


( c h ) read 


fro'Ti the buffer or file is 


the 


beqinninq of 


oaraoraph marker, i.e. om , 


♦ ) 






bea i n 




( ♦ 


boo ♦ ) 


boD ;= ch = pm 








end ; 




(♦ 


boD ♦ ) 


function break: boolean; 








(♦this function indicates that 


the 


char (ch) 


read from the buffer or fi1 


e i s 


the 


break char 


b e q i n 




(♦ 


b rea k ♦ ) 


break := ch = breakch 








end ; 




(♦ 


break ♦ ) 


function eot : boolean; 








(♦this func is analoqous to 


the 


eo f 


and eo 1 n 


funcs and indicates the end 
been reached.*) 


0 f 


the 


text has 


b e q i n 




(♦ 


eot ♦ ) 


eot := ch = eotchar 








end ; 




(♦ 


eot ♦ ) 
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. ^ 

» \ 
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4 * 






- " -m. 



' * 



Xf. 



• u 



• f 



function for-natchar: boolean; 

C^this func is true when ch is a for'^at 
command or oart of one.*) 

beqin (* formatchar *) 

if (ord(cti) 0) and fordfch) <= 31) then 
formatchar := true 

else if ch in ['!'/ '3'/ '5'1 then beqin 

{ check for numeric oart of format commands 1 
ch := qe t bu f c h a r C - 1 ) ; 

formatchar := ch in ftitlech, 1 n soac i nac h ] ; 
ch : = oetbu fchar f 1 1 ) 
end ; 

f o rma t char ;= fals^ 

end? (* formatchar *) 



function textchar: boolean? 

(*this func is true when ch is a valid 
disolavable text char only. Line/oara 
markers and format commands cause a false 
value to be returned. *) 

heqin (* textchar ♦) 

textchar := (ordCch) >= 32) and Cordfch) <= 126) 
end? f*textchar*) 
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function qethu^cHarCinc 



inteqpr); cHar 



f^this func qets a cHar from the buffer. It 
is either the oredecessor, same or successor 
to the last char returned.*) 

(* inc has the values +1,0,-!,*) 



const 

n eo 1 ~ - 1 ; 
?e ro = 0 ; 
pos 1 = 1 1 ; 



begin C*qetbutchar*) 

case inc of 
neq 1 : 
b e q i n 

bu f f e r ( i n send J ;= bu f f e r Tbu f i nd x 1 ; 
insend := insend - IJ 
bufindx := bufindx - l; 
insbeq := insbeq - 1 
end ; 
zero : 

null; C* no chanoe within the buffer *) 

DOS 1 ; 

ben i n 

bufindx ;= bufindx t 1; 
insbeq := insbeq t 1; 
insend ;= insend + 1; 
buffer (bufindx! := buffer(insendl 
end 

end ; ( * case ♦ ) 

getbufchar := buffertbufindxl 
end; getbufchar *) 
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function Inlenath; integer; 

(*this func counts the chars/ including 
spaces w/in the current line thp buffer and 
expects the buffer position t“o be at Im or pm.* 

va r 

c n t : i n t eae r ; 

begin (* Inlenoth *) 

c n t ! = - 1 ; 
repeat 

ch := qetbufcharftl); 
cnt := cnt + 1 

until newline or eot? 

Inlength ;= cnt; 

(return to beginning of line! 
repeat 

ch := ge t bu f c h a r f - 1 ) ; 
cnt := cnt - 1 
until cnt < 0 

end/ f^lnlpngth^) 



u 

-f j 









1 

i 



function newHnet boolean; 

(^this func is true whenev<»r an Im, om# 
or format cmd inndicatina a nei^ line is 
encoun t e red . ♦ ) 



bea i n 


( * ne w 1 


i ne * ) 


new line : = c h in 


tb rpal<C h , Dm , 1m, t i 


t 1 ec h , 


end ? 


( * n e w 1 


i ne ♦ ) 



function center: integer; 

(♦this func returns the startina oosition 
for the centerina of a line.*) 



begin 


(♦ 


center 


*) 


center := centerofog - 


1 n 1 ena t h 


d i V 2 




end? 


(♦ 


center 


♦) 



oqe j ec t c h ] 
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Drocedure terminal? 

(* this procedure sets the terminal constants^ i*e* 
ascii codes based on the user inout terminal type,^) 

van 

ans: char? 



Procedure adm3a? 



( * t h i s P roc ass 



ans the unique adm-3a terminal 



codes • * ) 



bea i n 

home •- chr(30)? 
clear := chr(26)? 
UP : = c h r C 1 1 ) ? 
right := chrfl2) 
end ? 



( * adm3a *) 



( * adm3a * ) 



procedure dmlS^O? 



(♦this proc assigns the unique dm-1520 terminal codes.*) 



bea i n 

home ?= chr(19); 
clear := chrCl?)? 
UP := chr(3l)? 
right := chr((?^) 
end ? 



(♦ dmi520 



(♦ dml520 ♦) 



procedure dmPS^O? 

(♦ this oroc assigns the unique dm-2500 terminal cooes.*) 

begin (* dm2S00 

home • - chr(?)? 
clear := chr(30)? 

UP := chr(26); 
right := chr(2«) 

end ? ( * 






dm2500 * ) 



procedure fermcodes? 



(*>this proc assions ascii fer-ninal codes 

that are comnnon to all the ter'ninals used w/ 
this system.*) 

beain (* termcodAs *) 

lastcol := 80; 

1 a s t 1 n ; = ; 

bell := chr(7); 
cr := chr(15); 

If := chr(lO); (♦ down *) 
down := chr(32); 



( * note 


that If/down appears as ' 


' on UNIX *) 


pubou t 


: = c h r ( 1 2 7 ) ; 




{rubout from terminal doesn’t work i 


n raw mode) 


(escape 


:= chr(?7); doesn't work 


in raw mode ) 


left := 


c h r ( 8 ) ; 




accept 


:= chr(l); (*cntrl a *) 




erase : 


= chrfS); (*cntrl e *) 




quit : = 


chr(17) (*cntrl a *) 




end ; 


(* t 


ermcodes *) 



« 



. » 



K' 

'M 



V 



I 

J 



I 

1 



beq i n 



C* terminal 



w r i t e ( c h r ( ?6 ) / chrCl?)r chrC^O)): 

writeC’ enter the terminal type as follows : ’); 

write(chr(l5)f chr(lO)); 

writeC’l tor adm-3ar 2 for dml5?0, 3 for dm?500') 

write(chr(t3)f chrClO), ' > 

repeat 

readfans) 

until Cans = M*1 or Cans = '?*) or (ans = *3'); 
t e rmcodes ; 
case ans of 
' 1 ’ : 
beo i n 
adm 3a ; 
termno := 1 
end ; 

• 2 ’ : 

beq i n 

dm 1 520 ; 
termno I- 2 
end; 

• 3’ : 
b e q i n 

dm25 0 0 ; 
t e r mno : = 3 
end 

end ( * case *) 

end; (^terminal*) 
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procedurf> de f au 1 t s ; 



( * t h i s proc sets 


the 


de f au 1 t 


values for 


a standard 8 1/2 


** y 


11” sheet 


of paper 


e*a. marninsretc 


. M 






bea i n 






(* set defaults *) 


fill : = true; 








bma ra 1 n : = 9 ; 


(* 1 


1/2” *) 




1 Tia rqi n : = 15; 


(♦ 


1 1/^" *) 




pqma rg i n : = 6 ; 


( * 


1 ” O 




pmargin ;= 17; 


( * 


^ spaces 


in fm Imarqin *) 


rmarain ;= 72; 


(♦ 


1 1/a” o 




tmarqin != 6; 


( ♦ 1 


” *) 




may pq Ins := 66 


; 






Inspacinq := 2 


; 






cent ero f pq : = 


(rmarqin - Imarqin) div 2 Imaroin 


tab := a; 








n := 1 ; 








reneat 








t ab 1 oc n s [ n J 


:= 1 


margin + 


1 t tab * n ; 


n : = n t 1 








until (n = 21) 


or 


(tab * n 


>= 80) 


end; 






set defaults *) 



9 ^ 



orocedure se t" f o rma t c 'nds ? 

(♦this proc assians the ascii codes tor the 
format cmds and markers used w/in this system*) 



begin f* set f o rma t cmds 

adjustch := chr(l); C* cntrl a *) 
breakch := chrC2); (* cntrl b *) 
centerlnch := chrC'^); (* cntrl c *) 
tmaroinch := chr(4); (♦ cntrl d *) 
oqejectch := chrCS); (* cntrl e *) 
fillch := chr(b); (* cntrl f *) 
oqmarginch ;= chr(7)? f* cntrl q *) 
headerch := chr(ft); (* cntrl h *) 
tabch := chr(9); (* cntrl i *) 

indentch := chr(ll)? (* cntrl k *) 

Inspacinnch := chr(l?); C* cntrl 1 *) 

Im ;= chr(l3); (*line marker = cr*) 
oqnumch := chr(l^); (* cntrl n *) 
filloffch := chrflS); (* cntrl o *) 
om := chr(lb); (*para marker = cntrl o*) 
footerch := chr(l7)? (* cntrl q *) 
rtjustifvch := chr(lB); (* cntrl r *) 
skiolnch := chr(19); (* cntrl s ♦) 

titlech := chr(20); f* cntrl t *) 
underinch := chr(21); f* cntrl u *) 
nm := chr(22)? (*new marker=cntrl v*) 

Imarqinch ;= chr(^3)? (* cntrl w *) 

adjustoffch := chr(2^); (* cntrl x *) 

botchar := chr(2*5); (* cntrl y *) 
eotchar := chr(26)? (* cntrl z *) 
bm ;= chr(27); (*begin marker=cntrl [*) 
bmarginch := chrC^fl); C* cntrl \ *) 

em ;= chr(?9); (*end marker=cntrl 1*) 



*) 



rmaroinch 
pma rq i nc h 
end f 



:= chrf30); C* varies *) 

:= chrC31) (* varies *) 

(* setformatcmds 



*) 
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• .if 
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I 

i 

f 

I 

- r 

. .t. 

I 







orocedure xvaddrCcol» row: intea<®r)? 

(♦this Droc initiates absolute x-v addressinq on 
the cpt screen for adrp-3a and drn-lS20 terminals, 
termnum is 1 for the adm-Sa and 2 for the dm-1520, 
col is the actual column number on the screen 
from 1 to 80 where the disolav is to occur, 
row is the actual row number on the screen 
from 1 to where the disolav is to occur. 

begi n ( * x vaddr * ) 

case termno of 
1 : ( * adm-3a * ) 

write(chr(?7)^chr(bl)/Chr(row-t31)fChr(colt31)); 
(♦ 31 is the offset for ea. value to set the 
correct ascii code.*) 

? : ( * dm- 1520 * ) 

write(chr(30), chr(col + 31)f chr(row + 31))? 

3: 

begin (* dm-?500 *) 

(♦the offsets varv in settina the correct ascii cone*) 
if col <= 32 then 
col := col t 95 

else if (col 33) and Ccol <- b^) then 
col := col t b3 

else if Ccol >- 65) and (col <- 80) then 
col := col t 3i; 

w r i t e ( c h r ( 1 2 ) f chr(col)/ c'^rCrow + 95)) 
end 

end ( ♦ case * ) 

end; C*xvaddr*) 
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t 
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i 

i 
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V 
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procedure suse r i nput f noc^a r s : inteqer); 

C^fhis proc nets nocHars of user input, A 
<cr> terminates short user input.*) 

begin (*suserinnut*) 

i : = If 
repeat 

read( i nchar) ; 

if inchar = erase then beqin 
write(leftf ' 'f left); 
i := i - 1 
end else bed in 

if inchar <> cr then b^ain 
write(inchar); 
if i <- smaxchars then 
cmdti) := inchar; 
i := i + 1 
end 
end 

until (inchar = cr) or (i > smaxchars t 1); 
if i <= nochars then 

for n := i to smaxchars do 
C md [n 3 : = ' ' 

else 

for n := nochars + 1 to smaxchars do 

cmd (nl : = ' ' 

end; f*suserinout*) 
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procedure luser^noutCnoc^^ars: inteaer) 



(*this proc nets noc^ars user input. A 
<cr> terminates long user input. ♦) 

begin C * 1 use r i npu t ♦ ) 

i : = 1 ; 
repeat 

read( inchar); 

if (inchar = erase) and (i > 1) then begin 

writeCleft, ' * , left); 

i := i - 1 
end else beg i n 

if inchar <> cr then begin 
write(inchar); 

if 1 <= Imaxchars then begin 

namefi) t= inchar; 
i := 1 4- 1 

end 
end 

end 

until (inchar = cr) or (i > Imaxchars > l); 

if namingfile then 

(♦check for .p in filename*) 

if (nameti “ ^1 <> '.’) or (nameti - 11 <> ’d*) then 

if i <= nochars - 1 then begin 

name(il ;= 
namefi ^ 11 ;= 'o'; 

i := i 4-2 
end else begin 

namelnochars - 11 
name TnoC h a r s 1 := 'o' 

end 
end ; 

if i <= nochars then 

for n := i to Imaxchars do 
name [n 1 ; = ' ' 

else 

for n := nochars 4* 1 to Imaxchars do 

nam e f n 1 : = ' ' 

end? (* luserinput *) 






peg i n 



oroc<»dure convrtnumCi: inteq^»r; var num: inteqer); 

(♦this DPOC converts the char nuf^b<=*r in the 
strinq Startina at index i into an inteqer value.*) 



function unifCcharno: char): inteoer; 

(♦this func returns the unit intea^r value 
of the char number.*) 



beq i n 


(* 


unit * ) 


unit := ord(charno) 


- o rd ( ' 0 * ) 




end ; 


(* 


unit * ) 


beq i n 


( * 


convrtnun 


n : = 0 ; 
reoea t 






n : = n f 1 






unfil c^ndti ♦ n] = ' 

case n of 







1 : 



num := unit(cmd[il); 



nu-Ti := unit(cmd(i)) * 10 -f unit(cnndii + 11); 

■ 5 : 

num:=unit(cmdtil )*100funit(c"'d(i'*'ll )*10-t‘unit(c'T^dri+21 ) 
end ( * case * ) 

end/ (* convrtnum *) 



99 



procedure h 1 en k ] n ( rownum : inteaer)? 



(♦this proc causes a line of blanks to be 
printed extending from the left screen 
boundary to ’'he 75th col on the riaht so 
that the bell doesn't ring each time.^) 



begin 

xyaddrCl, rownum); 
w r i t e ( * 
w r i t e ( ' 

w r i t e ( ' ' ) 

end ; 



(♦ blankln 

' ) ; 

' ) ; 

(♦ blankln ♦) 



procedure msaclear; 



(♦this proc blanks out the first 5 lines of 
the crt screen, i.e. the msg area. ) 



begin 

blankln(linel); 
blankln(l ine2); 
blanlfln(l ine3) 
end ; 



(♦ msaclear ♦) 



(* msaclear * ) 



procedure pause; 

(♦this proc makes the user aware of error msas 
and prompts by requiring his interaction w/ th-^ 
system.*) 

va r 

ans: char; 

begi n ( * cause ♦ ) 

xyaddr (co 1 f line3); 
writeC’ <space> to continue *); 
repeat 

read ( ans ) 
until ans = ’ ' 

end; ( * pause ♦ ) 
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' * i 






4 



f 



*-» J 



t vr 



i 



i 

I 

i 



i 



oroc<»dure d romo t r d num : inteaer); 



(*this proc writes out the pro'rot indicated by 
promotnurn in the usq area on the crt screen. 

beain (* oromot *) 

m sqc 1 ea r ; 

X y add r ( c o 1 1 2 f linel); 
case pro'^pt’num of 
1 : 

bea i n 

writp(*EDIT f^OOE q)uit A)ddfi1e y)tractfil 
wri te( 'Clursornove* ) ? 
yyaddrfcoH2/ line?); 

write(*c)ony dlelete i)nsert 1 locate m)ove*) 
X y add r ( c o 1 1 ? f Hne3); 

write('r)eolace s)ptnarker xlchanqe’); 
xyaddr Cco 1 no f rowno) 
end ; 

2: 

bea i n 

wri te( ’ insert mqdE ’ ) ; 
xyaddrfcol^f line?)? 

writeC’ctrl a to accept; Ctrl e to erase? ’) 
writeC'ctrl a to quit') 
end ; 

3: 

beq i n 

write! 'FORMAT mqdE ' ) 
end ; 
a : 

beq i n 

wr i t e (’ command MOOF >'); 
xyaddrCcolFf line?); 

write(*e)dit flormat llistino q)uit '); 
write('r)eadfile wlritefil®'); 
xyaddrCcol^ -t linel) 

end ; 

S: 

b e q i n 

w r i t e ( ' DELE T E MODE'); 
xyaddrCcol^/ line?); 

write(*ctrl a to accept? Ctrl q to quit*) 
end ; 

6 ; 

beq i n 

wri te( 'COPY MODE' ) 
end ; 
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bea i n 

wri te ( ' MOVF ^^ODE ' ) 
end ; 

b e q i n 

write('Drocessinq co^noleted.'); 
xyaddrCcol^f line?); 

write('de1ete markers set in buffer — y or n ?'); 
yyaddrCcol**^ line3); 
w r i t e ( ' > ' ) 



end ; 

to: 

beq i n 

writeC'buffer full 
xyaddrfcol^f line?); 

write('cntrl a);cceot or cntrl q)uit ?') 
end ; 
t 1 : 

beq i n 

write('does file already exist--y or n ?'); 
xyaddr(col8, line?); 
w r i t e ( ' > ' ) 
end ; 

I?: 

beq i n 

write('enter initial oaqp no. followed by <cr>'); 
xyaddrfcol^f line?); 
w r i t e { ' > ' ) 
end ; 

15 : 



bea i n 

write('orint listing on orintei y or n ?'); 

X yaddr (co 1 t ? f line?); 
w r i t e ( ' > ' ) 



end ; 

la: 



writef'at end of file'); 

15: 

writef'listinq beinq oroduced'); 

16: 

bea i n 

write('SET^^ARKER f^OOE *^)eqin E)nd N)ewlocn'); 
xyaddrCcoll? t ?, line?); 

write- ('move cursor then cntrl s to setmarker '); 
write('cntrl q to quit'); 
xyaddr(col^/ lineS); 

writeC'text bet ween/ i nc 1 ud i nq B) and E) chars '); 
writeC'is olaced before the cursor.') 
end ; 






i 



V 









t7: 

bea i n 

wri te( 'LOCATF MOnt ' ) 
end ? 

18 : 

bea i n 

wri te ( 'REPLACE MODE ' ) 
end ; 

19 : 

writeC'at beainninn of file')? 

30: 

wri te( 'XCHANGE MODE' ) ? 

31 : 

write('Addfile'); 

33: 

write('Xtracffile'); 

35: 

bea i n 

writeC'Cursor '^ove^nent arrows')? 

xyaddrCcol8, line3)? 

write('<cr> U)scrol1uD O)scrolldown o)aqe' 
yyaddrCcolBr linf»5)? 

write('b)eoinnina of file e)nd of file') 
end 

end case *) 

end? (■‘foromot*) 
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DTOcedure e r rormsq ( nnsgnum : integer); 



(*this proc prints out the error msa indicated 
by msgnufP in the msg area on the crt screen.*) 

beg in ( * e r ro rnsg * ) 

w r i t e ( b e 1 1 ) ; 
msgc 1 ea r ; 

X y add r C c o 1 1 2 / Hnet); 
case msgnuF' of 
1 : 

writeC' invalid command')? 
begin 

writeC’moving the cursor is meaningless w/ ') 
write('no text present in the buffer.') 
end ; 

3: 

write('r)eadfile before entering EDIT '^ODE')? 

a : 

write(' invalid EDIT command')? 

5 ; 

write(*r)eadfile b«=»fore entering FORMAT mqDE'); 

6: 

write('invalid INSERT command')? 

7 : 

write('al) inserted text has been erased')? 

^ : 

write('inva1id DELETE command')? 

9 : 

begin 

writeC'deletion direction must be consistentf 
xyaddrCcolB, line2)? 

writeC'qo right and down or go left and up.') 
end ; 

10 : 

write! 'invalid SET'^ARKER command')? 

I 1 : 

writeC'beqin marker already set')? 

12 : 

writeC'end marker already set')? 

13 : 

writeC'new locn marker already set')? 



\Q^ 



1 a: 

writeC'begin marWer must occur b^^^forp end marker'); 

15 : 

writ<®('new locn cannot be located in t^^e delimited text') 
lb: 

writeC'begin marker has not been set'); 

17 : 

writeC'end marker has not been set'); 

18 : 

writeC'new locm marker has not been set'); 

19 : 

wr i te ( ' i nsu f f i c i ent buffer soace for copy to occur'); 

?0: 

writeC'please indicate the title tvpe--l# 2 , 3/ ^'); 

31 : 

writeC'not implemented'); 

32 : 

write('r)eadfile before entering SET BARKER mode'); 

23 : 

writeC'buffer fullllllll') 
end; ( * case * ) 
cause 

end; C* errormsg *) 
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procedure or inter; 

(*this proc ma^es necessery adjustments to 
margins for the UNIX orinter.*l 

begin (*orinter*) 

r eoea t 

prompt Cl^); 
suse r i nou t ( H 

until (cmdfl] = 'y') or Ccmdfll = 'n'); 

if cmdfll = 'y' then begin 

(^UNIX printer's driver allows the user 
to write only 63 lines to a oq vice 60.*) 
tlnoffset := 2; f* 2 In at th<^ too *) 
blnoffset := 2 (* 2 Ins at the bottom^) 
end else begin 
tlnoffset := 0; 
blnoffset := 0 
end 

end; f^orinter*) 



1 06 








. f 




orocedure ae t nume r i c md ; 

(*this proc aet-s the nurneric Dart of a format 
command and converts it to an integer.^) 

begin (*getnumericmd*) 

i : = 0 ; 
r eoea t 

i : = i I ; 
ch := ge t bu f c h a r ( 1 1 ) ; 
c md [ i 1 : = c h 

until b rea^ r 
c m d i i ) : = ' ' ; 

COnvrtnumCi - 1, number) 

end# getnumericmd *) 

orocedure jmntomarker(markerchar: cnar; inc: integer) 

(*this proc moves backward or forward thru the buffer 
until the marker, e.g. bot is reached. inc indicates 
the direction of the move, i.e. tl==>forward and 
-l= = >backward. *) 

begin C*jmDtomarker*) 

ch := ge t bu f c h a r ( 0 ) ; 
if ch <> markerchar then 
r eoe a t 

ch := get bu f c ha r ( i nc ) 
until ch = markerchar 

(* 



end f 



jmDtomarker * ) 



orocedure f i 1 ename ( c ^ 1 1 edb y : char) 



(*this proc requests user innut of the name of 
the file to be processed. Up to charsf I'^cludinq 
the *.p' for a PASCAL filer consisting of aloha and 
numeric chars and the period are allowed,*) 

begin (♦ filename *) 

msqc 1 ear? 

xyaddrfcol 1 inel )? 



case call edby o f 

' A ' : 



wri te( 'name 

1 . 


the 


file 


t n 


wri te( 'name 

1 • 


the 


H s t 


i nq 


wri te( 'name 


the 


r aw f 


i 1 e 


wri te( 'name 


the 


raw 


f i 1 



’ X ' : 



be added to the buffer,')? 

file,'); 

fo be read into the buffer, 
saving the buffer contents 



.p, UP to chars, ')! 



writeC'name the file to be extracted from the buff* 
end ; (case) 

X y addr (co 1 , line^)? 

writeC’enter the filename, 
writeC'followed by <cr>'); 
xyaddrfcolR, lineS)? 
w r i t e ( ' > ' ) ? 
namingfile := true? 
luserinout (Imaxchars) ? 
namingfile := false? 
write(*the filename is name)i 



pause 
end ? 



* ) 



r * f i 1 enam 



funct-ion s t a r t 1 n ( no 1 i nes : inteqer): char; 

(*this func finds the beoinnina of the line to be 
displayed by either backtracl<ina or s*<i Doing forward 
through the buffer oy counting the number of line and 
paragraph markers encountered and comoaring this total 
w/ the specified nolines, Startln returns an Im or pm, 
nolines values indicate the following: 

-n backward n line(s)# 

0 same 1 i ne r 

tl forward n line(s), *) 

beg i n (*startln*) 

if nolines <= 0 then oegin (♦ go backwards 
(* to find sta^t of current line *) 
ch ;= oe t bu f c h a r ( 0 ) ; 
if not newline and not bot then 
r epea t 

ch := ge t bu f c h a r ( - 1 ) 
until newline or bot 

end ; 

if (nolines < 0) and not bot then 
r eoea t 
repeat 

ch := oetbufchar(-l) 
until newline or bot; 
nolines := nolines + 1 
until (nolines = 0) or bot 

else if (nolines > 0) and not eot then 
( go forward } 
repeat 
repea t 

ch := get bu f c h a r C 1 1 ) 
until newline or eot; 
nolines ;= nolines - 1 
until (nolines = 0) or eot; 

if bot then begin 
repeat 

ch := getbuf char ( 1 1 ) 
until newline 
end else if eot then 
repeat 

ch := ge t bu f c h a r ( - 1 ) 
until newline; 
startln := ch 
end ; 



(* startln * ) 



1 

1 



I 

. I 



4 



I 






DroCedure s e t c u r s o r ( n oc o 1 ^ nolines: inteoer); 

(*this proc maos the cursor col end row to the 
correct oosition in the hutfer. Mocol is the 
col locn ot fhe text char in the line of t<»xt. 
See startjn above ^or noHnes desc r i o t i on , * ) 

begin (* setcursor 

ch := s t a r t 1 n ( no 1 i nes ) ; 
if nocol = Imarqin then heain 
if bo 1 n then 

colno := Imarqin 1 
else if boD then 

colno pmarqin + 1 
else if ch = tabch then 
D roc es s t ab ? 

(*Pt to 1st char in line in fhe buffer *) 
recent 

ch := qe t bu f c h a r ( + 1 ) 
until textchar or eo’' 
end else beg i n 
i f bo In then 
i : = 1 m a r q i n 

else if hop then 
i : = oma r q i n 
else if ch = tabch then 
i := Imarqin t tab? 

repea t 

ch := qe t bu f c h a r ( •*• 1 ) ; 
if textchar then 
i : = i -t I 

until (i = nocol) or newline or eot ? 

(*if there are not enouqh chars in the line 
then pt to the last one.*) 
if newline or eot then 
r e D e a t 

ch := oe t bu f c h a r f - I ) 
until textchar? 
colno : = i 
end 
end? 



( * setcursor * ) 




I <•.' 









orocedure ad j us t 1 n C 1 ncn t r : int-“dpr); 

(*this proc inserts extra blanks in a In of words 
so that the last char of the las^ word is on the 
right margin. Each In is divided into 2 oar**s at 
midword. Iblkcnt and rblkcnt are the ^ of blanks 
inserted to th#> left and right of midword. endblkcnt 
is the total U of blanks to be inserted in the In, 
blklocns indicates where w/in the In blanks are located, 
inc is the offset in blklocns due to orevious blank 
insertion. lend is the blank oosition oreceding midword-*) 

va r 

endblkcnt, i, incf Iblkcnt, rblkcnt: integer; 

midword, wordcnt, Insize, lend: integer; 

blklocns: array fl..?0l of integer; 



procedure cntwords; 

(*this proc counts the U of words in a In of text 
and finds out where blanks may be inserted.*) 

begin f* cntwords *) 

ch := startln(-l); 
wordcnt := 0; 
i : = 1 ; 

if Insize > centerofnq + 3 then begin 
while i <= Insize do begin 
ch := ae t bu f c h a r C + 1 ) ; 
if ch = ' * then D<=»gin 

fcheck for 2 soaces toaethp»r> 

if (wordcnt>=l)andfblklocns[wordcnt)<>i-l) then heai 
wordcnt := wordcnt + l; 
b 1 k 1 oc n s f wo rdc n t 1 := i 

end else if wordcnt < 1 then begin 

wo rdc n t : = 1 ; 

blklocnsfll := i 
end 
end ; 

i : = i * 1 
end; 

wordcnt := wordcnt t I 
end 
end ; 



f* cntwords *) 



4 

i 




proC'?dure leftside; 

(*this proc adjusts le^t hal^ of the line 

by inserting e>ftra blanks to the left of midword*) 

begin C*l-*ftsid^*) 

i : = 1 ; 
i n c : = 0 ; 

lend 1= lolkcnt * (midword - 1); 
ch := startln(O); 

j := i; 

r eoea t 

ch := ae t bu f c h a r f 1 1 ) ; 
write (out f i 1 e f ch ) ; 

if (inc < lend) and (Ihlkcnt > 0) then begin 
if j = blklocns(i) then begin 
for n := 1 to Ib^kcnt do begin 

j : = j + 1 ; 

write(outfile^ ' ') 

end f 

i : = i + 1 ; 

inc inc + Iblkcnt? 

blklocnsfil := blklocnsii] t inc 



end 




end ; 




i : = j t 1 




until inc >= lend 




end? 


(♦ leftside *) 



orocedure rtsideJ 

(*this proc adjust*? tha riaht half of th^ line 
bv insartinq extra blanks to the riqht ot midword*) 



b e q i n 



C * r t s i de * ) 



i := midword? 
repeat 

ch oe t bu f c h a r ( t 1 ) ; 
write(outfilef ch); 

if (i < wordcnt-) and (rblkcnt > 0) then beqin 
if j = blklocnstiJ then heoin 
for n := 1 to rblkcnt do beqin 

i : = j >1 ; 
writeCoutfile^ ' ') 

end ? 

i : = i ^ 1 ? 
inc := inc t rblkcnt? 
blklocnsfil := blklocns[i] + inc 
end 
end? 

i ; = j t 1 

until i > Inside 

end? f*rtside*) 



beqin (*ad iustln*) 

Insize := Inlenqth? 

endblkcnt := rmarqin - (Insize t Imarqin); 
if endblkcnt > 0 then beqin 
cntwords? 

if wordcnt > 0 then beoin 



if 1 nc n t r 


mod 2-0 then beoin 




1 b 1 k c n t 


:= endblkcnt 


d i V (wordcnt - 


1 ) ; 


rb 1 kcnt 


: = 1 b 1 k C n t t 


1 ; 




m i dwo r d 


:= wordcnt > C 1 bl kcnf * (wordcnt 


-1 )-endbl *<cnt ) 


end else 


b e q i n 






rb 1 kcnt 


:= endblkcnt 


div (wordcnt - 


1 ) ? 


1 b 1 kc nt 


: = rblkcnt + 


1 ? 




midword 


: = endb 1 ken t 


+ 1 - rblkcnt * 


(wordcnt - t ) 


end ? 








leftside? 








r t s i de 









end 
end 
end ? 



(* adjustln *) 



procedure Hisplavln; 



(*this proc causes one 
to Oe displayed on the 
row Position indicated 

begin 

if boln then 

Colno Imarqin -t 
else 

colno I ~ pmarqin -t 
xy addr f CO 1 no f rowno); 



1 i np of UP to 80 chars 
crt screen at the line/ 
by rowno . * ) 

disolayln *) 

1 

1 ; 



repeat 

ch := qe t bu f c h a r f 1 1 ) ; 
if textchar then begin 
w r i t e ( c h ) 
end 

until newline or eot 
end f 



(* disolayln *) 
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procedure d i so 1 a y sc r een ( c o 1 / nolineSf row; integer); 

( * t i s proc causes up to ( 1 as t 1 n-msg 1 ns ) ^ 

usually or 21, lines to be displayed 

on the crt screen. nolines is described in 

startln. col and row indicate the final 

cursor position.^) 

va r 

buflncntf Incnt: integer; 

begin (* d i so 1 ay sc reen *) 

Insoacing := 1; 
write(clear); 
buflncnt := 0; 

Incnt : = 0 ; 

rowno ;= 1 msalns; 

ch := s t a r t 1 n ( no 1 i n e s ) ; 



repeat 

d i s p 1 a y 1 n ; 

buflncnt := buflncnt + i; 
Incnt ;= Incnt + 1; 
rowno : = rowno + I ; 
case 1 nspac i ng of 
1 : 

null; 

2: 



i f rowno < 
Incnt : = 
rowno ; - 
end ; 

3: 



lastln then begin 
Incnt + 1 ; 
rowno + 1 



b e a i n 

Incnt := Incnt + 2; 
rowno rowno t 2 
end 

end (* case *) 

until Clncnt >= lastln - msglns) or eot ; 
if eot then 

buflncnt := buflncnt - l; 
if row = 1 then 

s e t c u r s o r ( c o 1 f -buflncnt) 
else if rowno = lastln then 
set cursor (co 1 ^ 0 ) 
else 

setcursor (col / -buflncnt - row); 
if Insoacing = I then 
rowno ;= row -t "nsqlns 
else 

rowno ;= row ♦ Insoacing - Insoacing 1 + msglns 

X y addr (co I no » rowno) 

end; (* d i so 1 ay sc reen *) 
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procedure scrolluD 



(^this proc causes the user window to move 
backwards thru the text ^ar enouoh to 
move 16 lines# 3/^*s o^ a screen# or 
until hot is reached. It orovid*»s for an 
overlap# i.e. the too 5 lines will become 
the bottom 5 lines# for continuity.^) 

va r 

uPlnsJ inteoer; 

beqin (* scrolluo ♦) 

uplns := overlap - lastln f msolns - rowno? 
di solav5creen( lmarain#uplns# 1 ast I n-msolns-overl aP-1 ) 
end? f^scrollup*) 



procedure scrolldown; 

(*this proc causes the user window to move 
forward thru the text buffer far enouqh to 
move 16 lines# 3/4*s of a screen# or until 
eot is reached. It provides for an overlap# 
i-e. the last 5 lines will become the too S.*) 

V a r 

downlns: inteqer; 

begin (* scrolldown *) 

downlns := lastln - msolns - overlap “ rowno? 
d i so 1 aysc reen ( I ma rq i n # downlns# overlap - 1) 

end ; ( * scrolldown ♦ ) 
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procedure chqrowno(inc: integer); 

(♦this proc causes the row numbe incre"»ented to be 
or decremented by 1. It uses ^he terminal's HW 
scroll i no feature when at the bottom In on the C^T.*) 

begin (* chgrowno *) 

if (inr = -1) and (rowno = 1) then 
s c r o 1 1 u p 
else 

case 1 n soac i nq of 

1 : 

if rowno < lastln then 
rowno ;= rowno 1 nc 
else begin {rowno=lastlnl 
w r i t e ( 1 f ) ; 
d i sp 1 a y 1 n 
end ; 

2: 

if rowno < lastln then 

rowno rowno t 2 * i nc 
else begin { rowno = 1 a s t 1 n > 
w r i t e ( 1 f , If); 
d i so 1 ay 1 n 
end ; 

3: 

if rowno < lastln - 2 then 
rowno := rowno t 3 * i nc 

else begin {rowno=lastln-2> 
w r i t e ( 1 f / If. If. If); 
d i sp 1 ay 1 n 
end 

end (♦ case *) 

end ; ( * c hg rowno ♦ ) 
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procedure m aoc u r so r ( i nc l integer); 

(*this proc duplicates the cursor movement 
on the screen as movement thru the buffer 
so that there is a one-to-one c o r r e soondenc e 
between the cursor char and the buffer char.*) 
(*inc has the values fl and -1.*) 

begin mapcursor *) 

if bop or boln then beoin 
case i nc of 
neg 1 : 

begin {wraparound to end of previous ln> 
ch ;= start-ln(-l); 



if boln 


then 




CO 1 no 


: = 1 m a r g i n f 


1 n 1 eng t h + 1 


else 






CO 1 no 


:= pmargin + 


1 n 1 eng t h +• 1 



end ; 

pos I : 

{go forward to next line) 
if boln then 

CO 1 no ; = 1 ma rg i n 
else 

col no := pmarqin 
end ; {case) 
c hgrowno ( i nc ) 
end else if bot then 
prompt ( 1^) 
else if eot then 
prompt C 1^) 
else 

{other format commands) 
nul 1 

end; maocursor *) 
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function q®tcharfinc: inteaer): char 



(^this func returns only disolavable text 
chars from the buffer. It ionores the format 
commands embedded in the buffer. *) 

(* inc has the values +1 and -1 *) 



const 

nea 1 = - 1 ; 
pos 1 = + 1 ; 

begin C*aetchar*) 

case inc of 
neq I : 
repeat 

ch := ge t bu f c h a r ( - 1 ) ; 
if formatchar then 
maocu r so r ( - 1 ) 
else 

CO 1 no : = CO 1 no - I 
until textchar or hot; 

DOS 1 : 

repeat 

ch ;= ge t bu f c h a r f 1 1 ) ; 
if formatchar then 
maocursor ( ■♦■ 1 ) 
else 

col no := colno ^ 1 
until textchar or eot 
end; (* case 
if bot or eot then 
repea t 

ch := ae t bu f c h a r ( - i nc ) 
until textchar; 
qetchar := ch 

end; (* qetchar*) 



1 



oroc^dure tirleomfixCvar o^cHars: intaaar); 

(*this proc chanaes ^ he oaraoraoh marqina 
to conform to thasis manual specifications 
for indentation.*) 



b e a i n 

case ch of 

• 1 ’ : 



pma r a i n 
•2’ : 


; = 


17; 


D m a r a i n 

•3’ : 


; - 


17; 


oma ra i n 

’ a ' : 


• - 


21 ; 


pma ra i n 

•5* : 


• - 


2S; 


pma ra i n 
end; <case> 


• “ 


1 7 


pmchars : = 


rma rq i n 



end ? 



(* titleomfix *) 



oma rain + 1 

C* titlenmfi^ *) 
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orocedupA orocessbufCstaPtf finish: inteqer); 



(♦this proc processes the buffer after text 
insertion/ deletion or format chanoes/ e.q. 
rmarqin or Imarqin, Only the oaraaraph(s) 
involved in text changes will he reo roc es sed . * ) 

va r 

ImcharS/ omchars# nochars/ cntr: integer; 

halt! boo lean; 



procedure on 1 y read C s t on : char); 

(♦this proc prevents orocessino of soecially 
formatted text such as titles/ etc.*) 

beg i n 
r eoea t 

ch := qetbufcharftl 
until (ch = stop) or 
halt ! = true 
end ; 



(* onlyread *) 

) 

eo t ; 

( ♦ onlyread * ) 
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beain orocesshu^ 

Imchars := PTiargin - iTiarqin •»■ 1; 
omchars := rmarqin - omarqin + 1; 

Salt := false; 
ch := startln(O); 
if bufindx > start tSen heain 
r eoea t 

ch := startln(-l) 

until boo and Cbufindx <= start) or hot; 
if bo t then 
reoeat 

ch := qe t bu f c h a r C 1 1 ) 
until newline 

end; 

if bop then 

nochars := P^chars 
else 

nochars := l^chars; 
repeat 

c n t r : = 0 ; 
r ene a t 

ch := oetPufcharCtl); 
if textchar or boln then beqin 
cntp := cntr + l; 
if boln then begin 
c h : = ' • ; 

bufferfbufindxl := ch 
end 

end else if ch = filloffch then 
onlvreadf fi 1 Ich) 
else if ch = titlech then heain 
ch ;= qe t bu f c h a r ( t 1 ) ; 
t it lepmfi xfpmchars); 
onl yreadfom) 

end else if ch = tabch then 
nochars t= nochars - tao 

until newline or (cntr = nochars) or eot or halt 
if not (newline or halt or eot) then beqin 
if ch <> ' ' then 

f* bac^tracic to space before word *) 
repeat 

ch ;= qetbufcharC-1) 
until c h = ' ' ; 

bufferfbufindxl := It; 
nochars ;= Imchars 
end else if boo then 
nochars pmchars 
else if halt then 
halt ;= false 
until boo and Cbufindx >= 
end ; 



finish) or eot 

C * processhu f ♦ ) 



procedure n^ovecursor; 

C*rhis proc causes the cursor to move on the screen 
as well as mapping the cursor novei^ent to the 
movement thru the buff»=*r. *) 

beain (* mov^cursor 

if inchar = right then 

(* move forward 1 col *) 
ch := getchar(tl) 
else if inchar = left then 
(* move hac^<ward 1 col *) 
ch := aefchar(-l) 

else if inchar = up then begin (* move up 1 line *) 
setcursor ( CO 1 no / -1); 
c hgrowno C - 1 ) 

end else if inchar = do>^n then b»=*gin (♦ move down 1 line 
se t c u r so r ( c o 1 no / +1)7 

chgro^no ( ■♦• 1 ) 

end else if inchar = ' U * then 

(* backward 3/^'s screen *) 
sc r o 1 1 UP 

else if inchar = 'O' then 

(♦ forward 3/^'s screen *) 
sc r o 1 1 down 

else if inchar = 'h' then beoin 

C* go to the beginning of file *) 
j mo t oma r k e r ( bo t c h a r / -1)? 

di spl avsc reen ( 1 marai n , 0 ^ 1 ) 

end else if inchar = 'e' then heoin 

(* go to the end of file 

jmotomarker(eotchar, tl); 

d i sp 1 a V sc r een ( rma r o i n / -f? * overlap! ^ 2 * overlap) 

end else if inchar = cr then begin 

(* move to 1st col of next line down *) 
se t c u r so r ( 1 ma ro i n / tl); 
chgrowno( tl ) 

end else if inchar = 'o' then 

null; 

X y add r ( c o 1 f lastln); 
w r i t e ( c h ) ; 

X y add r C c o 1 no ^ rowno) 

end; movecursor *) 
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procedure readraw? 



(♦this Droc reads the raw t -j i e , if oresentf into 
the buffer and reorganizes the buffer into the 
correct structure*. if no file is nresent tne buffer 
is set UP for the creation of a new file.*) 



procedure newbufinitJ 

(♦this proc initializes the buffer for the 
creation of a new file.*) 

begin (*n^whufinit*) 

(♦botcharlformatrecJpm! insert area leotcharSenpty*) 
(♦beaindx! ... linsbeg! linsend! Ibuflimit*) 

beqindx := 1; 

bu f f er (begi ndx 1 := botchar; 

bu f f e r r beg i n d X t 11 := pm; 

bufindx l = beaindx + IJ 
insbeg := heaingy ♦ ? 
insend := buflimit - 27 
bu f f e r rpu f 1 i n i t - 11 := eotchar 

end? (* newbufinit *) 
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procedur#> orocessraw; 

(*this proc processes t-hp raw file bv counting off the 
no. of chars to be in a line after the maroin spaces 
are considered and includes the proper spacing consid* 
erations. A processed line is orec«»ded bv a 1 m or om 
if it is a paragrann. Previously set lm*s are blanked*) 
va r 

cntr^ Imchars/ nochars/ niichars: integer? 

begin (* processraw *) 

pmchars l - rmargin • omargin f 1? 

Imchars := r'T>arqin - Irr^argin t l; 

nochars := l^rchars? 

bufindx := 0? 

j := 0; 

while not eof( infile) do begin 
c n t r : = j ; 
repeat 

read( infile# ch); 
bufindx := bufindx + 1? 

if fill then 

if textchar or boln then begin 
cntr := cntr t 1? 
if boln thpn 

C h : = ' ' 

end else if hop then begin 
nochars := omchars? 

i := 0 

end else if ch = tabch t^en 
nochars := nochars - tap 
else if ch = titlech then begin 
hufferfbufindxl := ch; 
bufindx ;= bufindx * 1; 

readfinfile# ch); 
titlep'^fi x(pn^chars) 
end ; 

bufferfbufindxl != ch 

until newline or (cntr = nochars) or eof(infile)? 
if not (newline or eof(infile)) then begin 
if ch = ' ' then b'^gin 

bufferfbufindxl := Im; 

i := 0 

end else begin (backt'rk to ' ' before word) 

i ;= O; 

repeat 

i : = j + 1 

until bu f f e r fbu f i nd X - jl = * 

bu^ferfbufindx - jl := In^ 
end # 

nochars Imchars 
end 
end 

end; processraw *) 
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procedure oldbufini 
C ^ t h 1 s P r o c initial 
file has been read 

V a r 

bufend: integer; 

begin 

C*botcHar{ format rec 
prompt ( 1 ^ ) ; 
process ra»^ ? 
bufend := bufindx 
j : = b u f 1 i m i t - 1 
i : = bufend; 
reoeat 

bufferfil := buffer[i); 
bufferiil := ’ *; 

i : = i - 1 ; 
i := i - 1 

until i = 2 ; 
insend := }; 

begindx := i - l; 
insbeq := beoindx * 1 

end; (*oldbu-^init*) 

beg in ( * readraw * ) 

setdefaul ts; 

write(clear); {for previous reads) 

fileread := true; 

reoeat 

prompt C I 1 ) ; 
suser i nout ( 1 ) ; 

Ch := sstrinqllJ 
until (ch = *v') or (ch = 'n'); 

if ch = *n* then begin {emotv new file) 

emptybuf := true; 
n e w b u f i n i t 

end else begin (* nonempty existing fi>e *) 
emot ybu f : = false; 
filenameC'r*); 
reset(infile^ name); 
o 1 dbu f i n i t ; 

bufindx ;= begindx + i; 

d i sp 1 avsc reen ( 1 ma rg 1 n , 0, 1) 

end 
end ; 



t ; 

izes the buffer after an existing 
in,*) 



(* oldbufinit *) 

lomf insert area! text Jeotcharlemoty*) 



( * readraw * ) 
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procedure writerew; 

(*this proc writes tHe buffer backc to storage.*) 

begin (* writeraw *) 

fiiendmeC'w*)? 
rewrite(outfile^ name)? 
j mp t oma r k e r ( bo t c h a r r •!)? 
ch := ae f bu f c h a r C 0 ) ; 
writeCoutfile# cH); 
if not eot then 
repeat 

ch := qe t bu f c h a r ( + 1 ) ; 

if not (ch in Truboutr br'# em» nrrl) then 
writeCoutfile^ ch) 
until eot; 
flushCout fi 1e) 

end; (*writeraw*) 
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procedure 1 i storocessed? 

{this oroc processes the buffer and writes out 
the Processed text to the user»indicated file 
for Printing w/ no coov saved.) 

V a r 

Incnt; integer? 



procedure blank! ineCnolines: integer)? 



( * this 


proc 


w r i t e s 


out 


a 


blank! i ne 


of orocessed 


text to 


the 


output 


file 


.*) 








begin 










C * 


b 1 an X 1 i ne 


*) 


for i 


:= 1 


to no 1 


i n e s 


do 








w r i 


teCoutfi le# 


c r # 


1 f ) 








end ? 










(* 


b 1 an k 1 i n e 


*) 



procedure endpaqe? 

(♦this proc performs the end of page 
processing necessary for paa^ numberinaf prooer 
margins# etc.*) 



begin C*endpaae 

repeat 

blank! ine(l)? 

Incnt : = Incnt + 1 
until Incnt >= maxoqlns - ogmargin? 
if oageno <> 0 then begin 

writeCoutfile# oageno? centerofpg)? 
Incnt := Incnt t 1? 
paoeno ?= paaeno t 1 
end ? 

b 1 ank 1 i ne (maxpgl ns - Incnt 
end ? 



- blnoffset) 

( * endoage 



*) 
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Drocedure writetitleMndentn: inteoer); 

(*this proc writes out one line^ a title*) 

beqin (* writetitle *) 

for i := 1 to indentn do 
writeCoutfile^ ' '); 

repeat 

ch := qet bu f cha r C + I ) ; 
if not forrnatchar then 
wri te(out file, ch ) 
until newline; 
writeCoutfile, cr, M) 

end? C*writetitle*) 
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orocedupp orocesstitle? 

classification as 1st order# 2nd order# etc# 
according to thesis manual instructions.^) 
begin f^processtitle*) 

ch ;= ae t bu f c h a r ( t 1 ) ; 

case ch of 

• I * : 

b e g i n 

endpage ? 

blanklineCtmargin + 3); 
pmaroin := 17; 
wri tet i tle(center) ; 
blankl ine(2); 

Incnt := tmargin t 6 
end ; 

* 2 ' : 
begin 

if (incnt = tmarain) or (Incnt = tmargin f b) 
Incnt : = Incnt - 1 
else 

blanWl ine(1 ); 
omarain 17; 
wri teti tle( Imargin) ; 
blankline(l); 

Incnt := Incnt + 3 
end ; 

•3* : 
b e g i n 

pmaroin := 21; 

writetitle(lmargin f ^1); 
blankl ine(l); 

Incnt := Incnt + 2 
end ; 

* a * ; 

beg i n 

pma rq i n : = 25 ; 
writetitleClmargin t 8); 
blankl ine(l); 

Incnt := Incnt + 2 
end; 

•5* ; 
b e a i n 

endpage ; 

blankl ineCtmarqin t 3); 
pmaroin := 17; 
writetitle(center); 
blankl ine(2)#* 

Incnt tmargin + 6 

end 

end (case) 

end; (*processtitle*) 
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P roc *?du re H S t 1 n ; 



(*tnis ppoc writes one line of process<*d text 
to the output file,*) 

bed in (*1istln*) 

if ch = titlech then begin 
orocesstitle? 
at i tie ;= true 
end else begin 
if boln then 

for i := 1 to Imarain do 

writeCoutfile, ' ') 

else if bop then 

for i := 1 to omarain do 
writeCoutfile# ' ') 

else if ch = breakch then 
for i := 1 to Imarqin do 

writeCoutfile^ ' ') 

else if ch = poeiectch then 
endpaqe ; 
repeat 

ch := qe t bu f c h a r C + 1 ) ; 
if not newline then 
if textchar then 

writeCoutfile, ch) 

until newline or eot? 
w r i t e ( ou t f i 1 e / cr, If) 
end 

end; f*listln*) 
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(* listorocessed * ) 



beq i n 

atitle := false; 

] n soac i no : = 2 ; 
alisting ;= true? 
f i ] cname ; 

rewriteCouffile/ lstr*ina); 
j mot oma rk e r ( bo t c h a r f -1); 
reoea t 

ch ;= qe t bu f c h a r ( f 1) 
until newline; 
prompt (12); 
su se r i npu t f 3 ) ; 
convrtnumClr paoeno); 
centerofoq := (rmarqin - Imarqin) 
prompt (IS); 

tmarqin := tmarain - tlnoffset? 
bmarqin bmarqin + blnoffset; 
pqmargin := ogmargin + blnoffset; 
reoea t 

blank! ine(tmarqin); 

Incnt := tmarqin; 

repeat 
1 i s t 1 n ; 

if not atitle then 
case 1 nsoac i nq of 
1 : 

Incnt := Incnt + i; 

2 : 

beo i n 

blankl ine(l ); 

Incnt != Inert t 2 
end ; 

3: 

beq i n 

blankl ine(2); 

Incnt := Incnt 3 
end 

end ( * case *) 
else 

atitle := false 

until eot or (Incnt > maxoalns 
endpaqe 
until eot; 
cause ; 

ali sting := false 
end ; 



div 2 + Imaroin 



bmarqin); 



(* listorocessed *) 



C H ec k nna r k A r <? *) 



begin 

markersok := true; 

case calledby of 

• A • : 

{ Add f i 1 e } 
m t A s t- 5 ; 

’ c ' : 

<CODV } 

if begniset and endmset and newmset then begin 
m t e s t 1 ; 
m t A s t- 2 

end else beg i n 
m t A s t 3 ? 
m t es t ^ ; 
mt es t 5 
end ; 

’ 71 ' I 

{ mo V A > 

if begnset and end'^'SAt and newmset then begin 
m t es t 1 ; 

T t e s t 2 

end else begin 
71 1 e s t 3 ; 
m t es t ^ ; 
m t e s t 5 
end ; 

* r * : 

< r eo 1 ac e } 

if begmset and endmset then 
71 1 e s t 1 

else begin 

m t A s t 3 ; 
mt es r ^ 
end ; 

’s’: 

{ sea rc h > 

if begmset and endmset then 
m t e s t 1 
else begin 
m t e s t 3 ; 
m t e s f 4 
end ; 

’ X ’ : 

{XtPactfi le> 

if begmset and endmset then 
m t e s t 1 
else begin 
mt est 3 ; 
m t e s t 4 

end 

end <case> 

end; (* checkmarkers *) 
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Drocedure format; 



begin 


format 


*) 


p romot ( 3 ) 






end ; 


( * format 


*) 



p roc edu re edit; 

va r 

exit: boolean; 



procedure cony ; 

(*this proc allows t^e user to coov/dunlicate 
a body of text w/in th» buffer as lonq as the 
entire coPy will fit into the buffer. The 
material to be copied is delimited by ? cursor 
settings. The nev< locn is also set w/ the cursor. 

Mote that the cony will oreceed the cursor locn. *) 

V a r 

inCf textlenqth, start# finish: integer; 

procedure cooychar; 

(*this proc actually oer^orms the char 
transfer in the cooying*) 

begin f * convchar *) 

bu f f e r [ i n send 1 := em; 

bufferCendindxl em; 

repeat 

insend := insend - 1; 
endindx endindx - 1; 

buffer f insend] := bu^ferfendindxl 
until endindx = beoindx + 1; 

bu f f e r ( i n s end - 1J bm; 

bu f f e r (beg i ndx 1 := b'^; 

insend insend • 2 

end; C*coPvchar*) 
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( * CODv *) 



begin 

checkmarWers ( ' c ' ) ; 
i f marlf ersok t Hen 

if insend - insbeq > endindx - beqindx tHen beain 
textienqth := endindx - beqindx; 
if bufindx < newindx then 
i nc := 

else if bufindx > newindx then 
i nc : = - 1 
else 

i n c : = 0 ; 
repeat 

ch := qe t bu f c h a r ( i nc ) 
until ch = nrr; 
repeat 

ch := qe t bu f c h a r ( - 1 ) 
until not f o r rna t c h a r ; 
if endindx < insbeq then beqin 
(..Ibml ...Iem| ...I insend I nml ...> 
start := beqindx; 

finish := insend f I - textlenqth; 
copychar 
end else beqin 

(... J insend J nml ... JbmJ ... Semi ...} 
bufindx := insend + 
repeat 

ch := bu f f e r Cbu f i ndx 1 ; 
bufindx := bufindx + (■♦■1) 

until ch = em; 
endindx := bufindx - 1; 
beqindx := endindx - textlenqth; 
start := insend + 1 - textlenqth; 

finish := endindx - textlenqth; 
cooyc ha r 
end ; 

bufindx := insbeo - 1? 
imptomarkerCnm, +1 ) ; 
bu f f e r (bu f i nd X 1 := nm; 

p roc es sbu f C s t a r t f finish) 
end else 

errormsgC 1^) 



r * 
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end 



C OP V * ) 



Drocedure delete; 

C^this proc allows the user o delete chars in 
either the right or left direction by moving the 
cursor in the desired direction. an entire line 
of chars is deleted if the cursor is moved up or 
down. deletion in the buffer only occurs upon 
user acceptance. note that format cmds w/in the 
deleted area are also lost.*) 

va r 

forwrd/ backward/ finished: boolean; 
stop: integer; 



procedure de 1 sc r een ( d i r : char); 

(*this proc writes blanks or blank lines to 

the screen to show how the deletion will 

appear. note no deletion occurs in the buffer.*) 

begin (* delscreen *) 

{deletion only reflected on screen) 
if (dir = right) and not backward then begin 
forwrd := true; 
w r i t e ( ' ' ) ; 

ch := getchar(tl) 

end else if (dir = left) and not forwrd then begin 
backward : = t rue ; 
writeCleftf ' '/ left); 

ch := aetchar(-l) 

end else if (dir = up) and not forwrd then begin 
bac k wa rd : = t rue ; 
b 1 ank 1 n ( rowno ) ; 
setcursor ( rmargi n, -1); 
chgrowno(-l ) ; 
if rowno = 1 then begin 
sc ro 1 I UP ; 

for i := 1 to overlap " 1 do 
b I ank 1 n ( rowno + i ) 

end 

end else if (dir = ' ’) and not backward then begin 

forwrd := true; 
blankln(rowno); 
setcursor ( 1 margi n, tl); 

chgrowno(+l ) 
end else 

errormsg(9) ; 

X y addr ( c o 1 no / rowno) 
end ; 



( * de 1 sc reen * ) 



o 









4 



• > 



% 

I 







orocedure delorocess? 

(*this proc causes the deleted text to be 
removed from the buffer and processes the 
remaininq text as required,*) 

begin (* delprocess 

delend := bufindx; 
if forwrd then begin 

delete area I insert area 
(... IdelheqJ •*. Idelendl insbeo! 1 insendl 
bufindx : = de 1 beq ; 
repeat 

ch := qe t bu f c h a r ( - 1 ) ; 

if formatchar then 

de 1 oeg : = del beg - 1 
until textchar; 
insbeg := delbeg? 
processbuf (del begr delend) 
end else if backward then beain 
< . . • ! de 1 c na r I insert area Jdelete area ! 

(...Idelend linsbeoj..,', insendl Idelbeg! 

bufindx := insbeg - 1? 
reoeat 

ch := ae t bu f c h a r ( - 1 ) ; 

1 f f ormatchar t hen 

delend := Helend • 1 
until textchar; 
i nsend : = del beg ; 
insbeg := delend; 
o r oc e s sbu f ( de 1 end f delbeg) 
end 

end; ( * del orocess 



1 3fl 



I 
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(* delete * ) 



bea i n 

X y addr (co 1 no / rowno); 
finished ;= false; 
forwrd := false; {also downward} 
backward := false; {also uoward} 
de 1 beg : = bu f i ndx ; 
repeat 

read ( i nc ha r ) ; 

if inchar in [right, left, uo, ’ ' 1 then 

del screenC inchar) 

else if ch = quit then {no deletion occurs) 

finished : = t rue 

else if inchar = accept then begin 

(deletion w/in b»j ffer actually occurs) 
de 1 p r oc e s s ; 
finished := true 

end else beg i n 
e r rormsg ( 8 ) ; 
prompt ( 5 ) ; 

X y add r f c o 1 no , rowno) 



end 

until f i n i 


shed; 


if f o r w r d 


then 


stop := 


delbeq {hacxward) 


else 




stop : = 


de 1 end ; 


repeat 





ch := aet Du f c h a r ( - 1 ) 
until (bufindx <= stoo) and boo or bot; 
if bot then begin 
repeat 

ch ;= ge t bu f c h a r C I ) 
until boln or boo or eot; 
if eot then 

emo t vbu f : ~ true 

end ; 

if emptybuf then 
wri te(clear) 
else 

displavscreenClmarain, 



end 



overlao, overlap + 1) 

( * delete * ) 



Drocedur^‘ exchange? 



(♦this proc allows the user to change both format 
commands and text characters directly in the buffer, 
primarily used for trouble-shooting.*) 

begin f* exchange *) 

r eoea t 

read ( i nc h a r ) ? 

if inchar <> guit then begin 
bu f f e r f bu f i ndx 1 := inchar? 

ch := ge t bu f c h a r f t 1 ) ; 
xyaddr(^4» lastln); 
if textchar then 
wri te(ch) 
else if boo then 
w r i t e ( * % ' ) 
else 

w r i t e ( ' \ ' ) 

end 

until inchar = guit; 
d i so 1 ay sc r een ( 1 ma rg i n , 0, +1) 

end? (*exchange*) 



1 ao 



It is 



orocedure insert; 



C* this DToc causes te^t to be added to the 
bu^^er before the char indicated by the cursor. 

V a r 

ir jr inspoSf insquit: integer; 

finished; boolean; 



procedure inserterase; 

(*this Proc moves the cursor back to the preceding 
char* and blanks out the last entered char. wrap- 
around occurs^ in addition the cursor movement is 
duplicated in the buffer.*! 

begin C* inserterase*! 

if bufi ndx > insoos then begin 
ch := b u f f e r (bu f i nd X 1 ; 

(wraparound from new emoty line) 

if (ch = fillch! or (ch = filloffch! then begin 
fill := not fill; 
bufindx := bufindx - i; 
insbeg := insbeg - 1 
end else if not newline then begin 
bufindx := bufindx - 1; 

insbaq ;= insbeg - i; 
ch := bu f f e r f bu f i ndx 1 ; 
writaCleft, * 'f l»ft! 
end ; 

if newline then begin 

(wraoaround to end of previous line) 

i : = 1 ; 

repeat 

ch := bu f f e r r bu f i nd X - ii; 
i : = i t 1 
un t i 1 newline; 
if boln then 

colno ;= i * 1 h Imarqin 

else if boo then 

colno •- i " I h omargin 
else if ch = tabcn then 

colno ; = i - 1 t Imargin t tab? 

rowno rowno • I? 

bufindx := bufindx - 1? 

X y add r ( c o 1 no f rowno! 

endelse (samel ineerase) 

colno ;= colno - 1 
end else beg i n 
errormsg( 7! ? 
prompt (2! ? 

X y add r C c o 1 no f rowno! 
end 
end? 



(* insert erase * ! 



procedure end H ne ( no w r aooed : inteoer); 

( t H 1 s Proc removes extra blanks from the end of 
the Previous line# sets the Im or om, prepares 
the crt screen to display the next inserted char 
and rotates chars to fill the stripped slots, 
nowrapoed is the ^ of chars to be written to the 
new 1 i ne • * ) 



va r 

lastch: char; 



begin trendline*) 

(remove extra blanks at eoln if present} 
i : = 0 ; 
repeat 

lastcn := bu f f e r [bu f i nd x - jl; 
i : = J t 1 
until lastch <> ' 

insbeg := insbeq - j t 2; 
bufindx ;= bufindx - j t 2; 

( set marker > 
if bop then beain 

colno ;= pmarqin t 1; 
bu f f e r fbu f i nd X 1 := om 

end else beg i n 

colno ;= Imarqin + 1; 
bu f f e r [ bu f i nd X 1 := Im 



end ; 

( Prepare crt screen } 
if rowno < lastln then begin 
rqwno rowno t 1# 
blankln(rowno) 
end else 

writeCl f); 

xyaddrCcolno# rowno); 

(rotate and write wraooed chars) 
if nowraoped > 0 then 
repeat 

bufindx := bufindx + l; 
i f j >= 2 t hen 

buf f er [buf i ndxl := bu f f e r [bu f i nd x + Ij; 
writeCbufferfbufindxl )# 
nowrapped nowrapoed • 1 
until nowrapped = I 



end ; 



(* endline *) 



orocedure outchar; 

C^this proc adds another char to the buffer.*) 

beqin f*Dutchar*) 

bufindx := bufindx t l; 
bufferfbufindxl ;= ch; 
insbeq := insbeq + I 

end r C * pu t c h a r * ) 



procedure insertchar; 

(*th1s proc adds a new char to the text buffer and 
provides aijtomatic line wraparound. note that the 
current buffindx contains a char while insbeq is 
empt y . * ) 



beg i n 

if fill then 

if colno <= rnnarqin then 
if ch = tabch then 

colno : = colno t tab 
else begin 
write(ch); 

colno ;= colno t 1? 

PU t c h a r 
end 

else if fcolno > rmarqin) 
end 1 i ne ( 0 ) 

else begin {nonblank char 
{if ( CO 1 no> rma rg i n 1 and 



C* insertchar *) 



and (ch = ’ ') then 

at eo 1 n > 

Ccho* ')) 



out c h a r ; 

i := 1? { ^ of wrapped chars! 

{backtrack to soace before word! 
repeat 

ch := bufferfbufindx - il? 
i : = i + I 
until c h = ' * ; 

{blank out wrapped chars on screen! 
colno := colno t 1 - i; 

X y addr C CO 1 no f rowno)? 
for f := 2 to i do 
w r i t e ( ’ ' ) ? 

{write wrapped chars on new line! 
bufindx := bufindx - i? 
e n d 1 i n e ( i ) ? 
colno : = colno t i 
end 
else 

{no filling or autowrao! 
out C h a r ; 

{check for full buffer! 

if insbeq = insend - 1 then {full buffer! 
prompt (10) 

end; (* insertchar*) 



Drocedure i ns f o mnat- cmd ? 

C^tHie proc adds format commands to th^ buffer and 
handles special insert entries^ e,a. tables,*) 

* ) 



*) 

procedure insprocessfaction: char); 
r*this proc processes the inserted text* and 
surroundina text as necessary, note that 
emptvbuf indicates the creation of a new file,*) 

beqin (* insorocess *) 

if action = accent then 
action : = ' A ’ 

else 

action := 'Q'; 

case action of 
• A • ; 
beqin 

if emotybuf then beqin 

i mo t oma r k e ( ho t c h a r / ”1); 

orocessbuffinsoosr buflimit) 
end else begin 

insquit := insbeo • 1; 
o roc es sbu f ( 1 nsoo s f insbeo - 1) 
end ; 

empt vbu f I- false 
end ; 

*Q’ ; 

beqin 

(no insertion occurs) 
insbeq ;= insDos; 
bufindx insbeo ~ 1 

end 

end (case) 
end ? 



beqin C* i n s f o rma t c mdc h a r 

i f bop then 
endl ine(O) 

else if (ch = cr) and not fill then beoin 
{ ignore cr and fill > 
c h ; = l m ; 
endl i n e ( 0 ) 

end else if ch = filloffch then beqin 
putchar; 
fill : = f a 1 s e 

end else if ch = fillch then beoin 
outchar; 
fill true 
end 

end; (* i n s f o rma t c mdc h a r 



t aa 



i nsorocess ♦ ) 



(* insf»rr *) 



bea i n 

if emptybuf then bea in 
rowno 1 msq^ns? 

coino pmarqin 1 

end else beg i n 

(* blank out the end of the line *1 
X V add r ( c o 1 no f rowno)? 
for i := colno to lastcol do 
w r i t e ( ' ’ ) ? 

b 1 an k 1 n ( rowno 1)? 

(* insert before cursor *) 
ch qe t bu f c h a r C - 1 ) 

end ; 

X V a dd r ( c o 1 n o # rowno)? 
finished := false? 
insoos := insbeq? 
reoeat 

r e aa f c h ) ; 

if newline then 
i nsformatC'Dd 
else if textchar then 
insertchar 

else if ch = erase then 
i nserterase 

else if (ch = accent) or (ch - quit) then beain 
insprocess(ch) ; 
finished := true 
end else beg i n 
error'T’sq(b) ? 
prompt (2) ; 

xyaddr ( CO 1 no / rowno) 
end 

until finished? 

if not emptybuf then begin 
repeat 

ch ;= ne t bu f c h a r C - 1 ) 
until (bufindx <= ins quit) or hot? 
di spl aysc reen ( 1 marqi Hr 0# +1) 

end else 

write(clear) 

( * insert *) 



1^5 



end ? 



procedure locate? 

C*this oroc oerforms a oattern search thru the 
file for the input pattern strino and positions 
the cursor at the "found" Pattern or at the end 
of the searched area.*) 



begin 


( ♦ locate 


♦) 


e r ro rmsq ( 2 1 ) 






end ? 


( * locate 


♦ ) 



procedure move? 

(♦this proc allows the user to move text from 
one Place to another in the buffer. The body 
to De moved is delimit^^d by ? cursor settings. 
The new locn is also set with the cursor. 

Note the moved material will preceed the 
cursor post i on * ) 



beg i n 


f ♦ move 


♦) 


null 






end ; 


( ♦ mov* 


♦) 



procedure replace? 

(♦this proc will utilize the locate oroc to 
replace a specified Pattern w/ another one 



either once ormultiole times 
delimited ar#^a of text.^) 


w / i n 


the 




beg i n 


(♦ 


r eo 1 ace 


* ) 


e r rormsg (21) 








end ? 


(♦ 


r eo 1 ace 


♦ ) 



1 a6 




f « 1 i 



f 







* I ■{ 
f' 

' 4 ' 



' i 



I 



-I 



• '«! 
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orocedure Addfile? 

(^this proc adds the use r-soec i f i ed ^ile to the 
buffer contents at the locn indicated bv nm*) 

va r 

addoos/ addquit: integer; 



beqi n C ★ Addf i 1 e 

filename('A'); 

set fuarlf er ; 
c hec kmar ke r s C * A • ) ; 
if markersok then beain 
addpos : = bu f i nd^ ; 
r e se t ( i n f i 1 e » name); 
jmPtomarkerCbotcharf -1); 
jfTiDtomarkerCnm, +1); 
read(infile» ch); 
r ePea t 

readfinfilef ch); 
bufindx := bufindx + i; 
bu f f e r f bu f i nd X ) := ch 

until eof(infile) or (bufindx = insend 
insbeq := bufindx t 1; 
addquit bufindx; 
if not eof(infile) then 
er rormsq (23 ) 
else beq i n 
promot ( 6 ) ? 
repeat 

read ( i nc har ) 

until inchar in ['n*, 'y'l; 

if inchar = *y* then 

del markers 



end ; 

p roc es sbu f ( addPOS f addquit); 
repeat 

ch := qe t bu f c h a r ( - I ) 
until (bufindx <= addquit) or bot ; 
di SPl aysc reen ( 1 marqi n , 0, + 1 ) 

end 
end ? 



^) 



- 1 ) 



( * Add f i 1 e * ) 



f/ 






procedure Xtractfile; 

(’♦this proc writes the buffer contents delimited 
by bm and Im out to a file*) 

begin (* Xtractfile *) 

f i 1 ename ( ' X ' ) ; 
setmarker? 
checkmarkers( *X' ); 
if markersok then begin 
rewriteCoutfilef name); 
writeCoutfiler botchar); 
imotomarkerfbo^charr -1); 
fmPtomarkerCbm# *1); 
ch := ge t bu f c h a r ( t 1 ) ; 



r epea t 

writeCoutfile/ ch); 
ch := getbufchar(*1) 
until ch = em; 
writeCoutfile^ eotchar); 
r ew r i t e ( ou t f i 1 e ) ; (force dump of 
orompt ( 8 ) ; 
repeat 

read C 1 nc ha r ) 

until inchar in ('n', 'y'l; 

if inchar = ’y' then 

del markers 

end 
end ; 



lastI/0 block) 



♦ ) 



(* Xtractfile 



( * edit * ) 



beqi n 

if fileread then begin 
exit ;= false; 
orompt ( 1 ) ; 
repeat 

xyaddr (col no» rowno); 
read (inchar); 
if i n c h a r in 

{cr»down,left^riqht»up# ’O', 'U*, 'o', 'e', 'b'l then 
if not e'Dptybuf then 
movecu r so r 
else 

errormsq(2) (* text not present ♦) 
else if inchar in <»dcmdset then begin 
case inchar of 

• A • : 

begin 

prompt (21); 

A dd f i 1 e 
end; 

•c • : 
begin 

prompt ( 6 ) ; 
copy 
end ; 

•C • : 

(Cursor movement) 
prompt (25) ; 

•d* : 

begin 

prompt ( 5 ) ; 
delete 
end ; 

’ i • : 
beg i n 

prompt ( 2 ) ; 
insert 
end ; 

• 1 • : 

begi n 

prompt (17); 
locate 
end ; 



I ao 



beq i n 

prompt C 7 ) ; 
move 
end; 

•q’ : 

exit := true; 

• r • ; 
beq i n 

prompt ( 1 ft ) ; 
rep 1 ace 
end ; 

’s': 
beo i n 

prompt (16); 
setmar^er 
end ; 

’ X • : 

beo i n 

prompt ( 20 ) ; 
e X c hanqe 
end ; 

’ X • : 

beq i n 

prompt ( 22 ) ; 

X t rac t f i 1 e 
end 

end ; (.* edit case *) 

if not exit then 
p r omn t ( 1 ) 
end else begin 
errormsg(^) ; 
p romot ( 1 ) 
end 

until exit 
end else 

errormsgC 3) 

end ; 



( * edit * ) 
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bea 1 n 



( * * mainline scodp **) 



(*this is the driver for the command level and thus 
SCOPE, It allows the user to read in and orocess 
the desired file? edit and format the file in the 
buffer and to save the file by writina it to the 
printer or to storage,*) 



stop := false; 
naminqfile := false; 
fHeread false; 

c^dset := ['r', *w', 'e'» 'a'^ 'f'l; 

edcmdset 

cu rsormoveset := [uo » down , r i oh t r 1 e f t » c r , ' b ' / ' e ' ^ ' D ‘ * U ' 1 
terminal; (* prompt mso in proc *) 
p r i n t e r ; 
setdefaul ts; 
set f orma* cmds ; 

w r i t e ( c 1 e a r ) ; (* clearscreen *) 

reoeat 

prompt (^) ; 
suse r i nput f 1 ) ; 
cmdchar : = cmd [11; 
if cmdchar in cmdset then 
case cmdchar o f 
' r ' : 

r ead r a w ; 

' w ’ : 

w r i t e r a w ; 

• 1 ' : 

1 istprocessed; 

' e ' : 
edit; 

' q ‘ : 

stop : = true; 

' f ' : 

f o r ma t 

end C* decode case *) 
e 1 se 

errormsqf I ) 
until stop; 
write(clear) 

end • 
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